X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstrictures.pm;h=5e12c82531affeb906a65d10f9a023a66e5b8a53;hb=e12af862ff034c1757248c0faf517ad2a917e5c9;hp=8831249cb1e0bbe00fe4ec2bc3acb6a7ed4c73dc;hpb=09dcd779e42c0818abe4220b900b730fc67e1e7e;p=p5sagit%2Fstrictures.git

diff --git a/lib/strictures.pm b/lib/strictures.pm
index 8831249..5e12c82 100644
--- a/lib/strictures.pm
+++ b/lib/strictures.pm
@@ -4,10 +4,10 @@ use strict;
 use warnings FATAL => 'all';
 
 BEGIN {
-  *_PERL_LT_5_8_4 = ($] < 5.008004) ? sub(){1} : sub(){0};
+  *_PERL_LT_5_8_4 = ("$]" < 5.008004) ? sub(){1} : sub(){0};
   # goto &UNIVERSAL::VERSION usually works on 5.8, but fails on some ARM
   # machines.  Seems to always work on 5.10 though.
-  *_CAN_GOTO_VERSION = ($] >= 5.010000) ? sub(){1} : sub(){0};
+  *_CAN_GOTO_VERSION = ("$]" >= 5.010000) ? sub(){1} : sub(){0};
 }
 
 our $VERSION = '2.000005';