From edda424913048c3d7d1affe16f8f830ea26b00d6 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 19 Oct 2020 06:16:11 -0700
Subject: [PATCH] fixed problem parsing multi-line signature

---
 lib/Perl/Tidy/Tokenizer.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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