From c00059afab9fd428ca63abdcabbc617faf56b4c3 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sat, 3 Jul 2021 18:25:48 -0700 Subject: [PATCH] Check for side comment within package statement --- lib/Perl/Tidy/Tokenizer.pm | 3 ++- local-docs/BugLog.pod | 11 +++++++++++ 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index b0e3676d..1be21abe 100644 --- a/lib/Perl/Tidy/Tokenizer.pm +++ b/lib/Perl/Tidy/Tokenizer.pm @@ -6601,7 +6601,8 @@ sub do_scan_package { # knows that the number is in a package statement. # Examples of valid primitive tokens that might follow are: # 1235 . ; { } v3 v - if ( $next_nonblank_token =~ /^([v\.\d;\{\}])|v\d|\d+$/ ) { + # FIX: added a '#' since a side comment may also follow + if ( $next_nonblank_token =~ /^([v\.\d;\{\}\#])|v\d|\d+$/ ) { $statement_type = $tok; } else { diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod index 41041242..567286e9 100644 --- a/local-docs/BugLog.pod +++ b/local-docs/BugLog.pod @@ -2,6 +2,17 @@ =over 4 +=item B + +Testing with randomly placed side comments caused perltidy to produce an incorrect +warning when a side comment is placed before the end of a package statement: + + package double # side comment + ; + +This update fixes this. +3 Jul 2021. + =item B Testing revealed a formatting irregularity which was caused when the flag -- 2.39.5