X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F14-ro.t;h=bae8ccf079920b9774c1c57edbf491ac3c002061;hp=c8e9f7d5b33c5d8655467e741f19c89145e37534;hb=61f64dfa5fa4f435e6cd854d22e4325ef1eb0068;hpb=26192e1043cbd952cc7acaa033cc473ffd074085 diff --git a/t/14-ro.t b/t/14-ro.t index c8e9f7d..bae8ccf 100644 --- 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!