From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 8 Sep 2020 21:04:45 +0000 (-0700)
Subject: fix problem parsing sub prototypes
X-Git-Tag: 20200907.01~32
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=569e05f5ae16519cac9a6283ab334c9778047998;p=perltidy.git

fix problem parsing sub prototypes
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index f333caef..380f7d29 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -5957,7 +5957,7 @@ sub scan_identifier_do {
     my $tok                 = $tok_begin;
     my $message             = "";
 
-    my $in_prototype_or_signature = $container_type =~ /^sub/;
+    my $in_prototype_or_signature = $container_type =~ /^sub\b/;
 
     # these flags will be used to help figure out the type:
     my $saw_alpha = ( $tok =~ /^\w/ );