Another fix from core Perl

John Peacock · John Peacock · commit 60e650ac535f · 2016-03-18T21:36:36.000-04:00
diff --git a/t/07locale.t b/t/07locale.t
@@ -51,7 +51,7 @@ SKIP: {
 	ok ($v == $ver, "Comparison to locale floating point");
 
         TODO: { # Resolve https://rt.cpan.org/Ticket/Display.html?id=102272
-            local $TODO = 'Fails for Perl 5.x.0 < 5.19.0';
+            local $TODO = 'Fails for Perl 5.x.0 < 5.19.0' if $] < 5.019000;
             $ver = version->new($]);
             is "$ver", "$]", 'Use PV for dualvars';
         }

Original file line number	Diff line number	Diff line change
`@@ -51,7 +51,7 @@ SKIP: {`
`51`	`51`	`ok ($v == $ver, "Comparison to locale floating point");`
`52`	`52`
`53`	`53`	`TODO: { # Resolve https://rt.cpan.org/Ticket/Display.html?id=102272`
`54`		`- local $TODO = 'Fails for Perl 5.x.0 < 5.19.0';`
	`54`	`+ local $TODO = 'Fails for Perl 5.x.0 < 5.19.0' if $] < 5.019000;`
`55`	`55`	`$ver = version->new($]);`
`56`	`56`	`is "$ver", "$]", 'Use PV for dualvars';`
`57`	`57`	`}`