From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 15 Jan 2020 02:56:10 +0000 (-0800)
Subject: allow package names ending in ::
X-Git-Tag: 20200619~143
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b2732f321bbd046cb6ab8f067c07346b8a0a56d4;p=perltidy.git

allow package names ending in ::
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 0c34201b..616253e6 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -5707,7 +5707,7 @@ sub do_scan_package {
     pos($input_line) = $pos_beg;
 
     # handle non-blank line; package name, if any, must follow
-    if ( $input_line =~ m/\G\s*((?:\w*(?:'|::))*\w+)/gc ) {
+    if ( $input_line =~ m/\G\s*((?:\w*(?:'|::))*\w*)/gc ) {
         $package = $1;
         $package = ( defined($1) && $1 ) ? $1 : 'main';
         $package =~ s/\'/::/g;