Make Perl version numbers more readable

[perl/modules/Lexical-Types.git] / t / 14-ro.t

diff --git a/t/14-ro.t b/t/14-ro.t
index bae8ccf079920b9774c1c57edbf491ac3c002061..1c4a7e07814e8d42b6972b98e24622918efa47be 100644 (file)
--- a/t/14-ro.t
+++ b/t/14-ro.t
@@ -24,7 +24,7 @@ sub ro_re {
 }
 
 sub maybe_warn {
- diag 'This will throw two warnings' if "$]" >= 5.008008 and "$]" < 5.009;
+ diag 'This will throw two warnings' if "$]" >= 5.008_008 and "$]" < 5.009;
 }
 
 {
@@ -38,7 +38,7 @@ sub maybe_warn {
 }
 
 SKIP: {
- skip 'Kinda broken on old 5.8.x' => 1 if "$]" <= 5.008006;
+ skip 'Kinda broken on old 5.8.x' => 1 if "$]" <= 5.008_006;
  maybe_warn();
  local $@;
  eval q!