Change 20085 by [EMAIL PROTECTED] on 2003/07/09 07:49:46
Test the vX => ... fix.
Affected files ...
... //depot/perl/t/op/ver.t#30 edit
Differences ...
==== //depot/perl/t/op/ver.t#30 (xtext) ====
Index: perl/t/op/ver.t
--- perl/t/op/ver.t#29~18840~ Thu Mar 6 12:45:08 2003
+++ perl/t/op/ver.t Wed Jul 9 00:49:46 2003
@@ -11,7 +11,7 @@
use Config;
require "test.pl";
-plan( tests => 50 );
+plan( tests => 53 );
eval 'use v5.5.640';
is( $@, '', "use v5.5.640; $@");
@@ -254,3 +254,13 @@
$v = v1.2_3;
is( ref(\$v), 'VSTRING', 'v-string objects with v' );
is( sprintf("%vd", $v), '1.23', 'v-string ignores underscores' );
+
+# [perl #16010]
+%h = (v65 => 42);
+ok( exists $h{v65}, "v-stringness is not engaged for vX" );
+%h = (v65.66 => 42);
+ok( exists $h{chr(65).chr(66)}, "v-stringness is engaged for vX.Y" );
+%h = (65.66.67 => 42);
+ok( exists $h{chr(65).chr(66).chr(67)}, "v-stringness is engaged for X.Y.Z" );
+
+
End of Patch.
