From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 5 Oct 2024 20:07:30 +0000 (-0700)
Subject: fix for git #165
X-Git-Tag: 20240903.04~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=883a6416da6e4c29232010371548d46c1b0ea534;p=perltidy.git

fix for git #165
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index c908f7fa..771bbe56 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -4880,9 +4880,11 @@ EOM
             # Bareword followed by a fat comma - see 'git18.in'
             # This code was previously sub do_QUOTED_BAREWORD: see c316, c317
 
+            # Older perl:
             #   'v25=>1'   is a v-string key!
             #   '-v25=>1'  is also a v-string key!
-            if ( $tok =~ /^v\d+$/ ) {
+            # Deactivated: this is no longer true; see git #165
+            if ( 0 && $tok =~ /^v\d+$/ ) {
                 $type = 'v';
                 $self->complain("v-string used as hash key\n");
                 $self->report_v_string($tok);