fixed problem parsing multi-line signature

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index cd8bf3bacd7dc40a4dc22277af0b2fec0114b189..81ff8def275872d0b5cfe4a1fd484f02aafb10d5 100644 (file)
--- 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 );
     }