From b2732f321bbd046cb6ab8f067c07346b8a0a56d4 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 14 Jan 2020 18:56:10 -0800
Subject: [PATCH] allow package names ending in ::

---
 lib/Perl/Tidy/Tokenizer.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.39.5