From 569e05f5ae16519cac9a6283ab334c9778047998 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 8 Sep 2020 14:04:45 -0700
Subject: [PATCH] fix problem parsing sub prototypes

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