From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 29 Dec 2019 15:23:19 +0000 (-0800)
Subject: Fixed undef in error message parsing 'sub () name'
X-Git-Tag: 20200110~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bc10702347c5aa81f013c21becc970fcc782462e;p=perltidy.git

Fixed undef in error message parsing 'sub () name'
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 557e0101..77b77323 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -6419,6 +6419,7 @@ sub scan_identifier_do {
                 $statement_type = $tok;
             }
             elsif ($next_nonblank_token) {      # EOF technically ok
+		$subname = "" unless defined($subname);
                 warning(
 "expecting ':' or ';' or '{' after definition or declaration of sub '$subname' but saw '$next_nonblank_token'\n"
                 );