allow package names ending in ::

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 0c34201b3263575e1e0f4a4704dfc3626daf33d8..616253e6d2b1c0923efc5e0cfe58e576c1978653 100644 (file)
--- 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;