From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 19 Oct 2020 13:16:11 +0000 (-0700)
Subject: fixed problem parsing multi-line signature
X-Git-Tag: 20201001.03~59
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=edda424913048c3d7d1affe16f8f830ea26b00d6;p=perltidy.git

fixed problem parsing multi-line signature
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index cd8bf3ba..81ff8def 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -6838,6 +6838,12 @@ sub scan_identifier_do {
 
         # no match but line not blank
         else {
+
+            # assume that an opening paren starts a signature
+            if ($saw_opening_paren) {
+                $package_saved = "";
+                $subname_saved = "";
+            }
         }
         return ( $i, $tok, $type, $id_scan_state );
     }