From bc10702347c5aa81f013c21becc970fcc782462e Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 29 Dec 2019 07:23:19 -0800
Subject: [PATCH] Fixed undef in error message parsing 'sub () name'

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

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