fix for git #165

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index c908f7fa16c01b2a8f1278641f468e2b47ff9c94..771bbe566a9ba10bf0fe84f9092f9d7439c6e55b 100644 (file)
--- 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);