Replace $] by "$]"

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

diff --git a/t/14-ro.t b/t/14-ro.t
index c8e9f7d5b33c5d8655467e741f19c89145e37534..bae8ccf079920b9774c1c57edbf491ac3c002061 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.008008 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.008006;
  maybe_warn();
  local $@;
  eval q!