X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=d92f17a7691c8ebaed9fa4dbb0582b686f1dfe40;hb=46cd890ea5937a0a5a6f3270391c80720671c3ac;hp=7fb55b88d8c0fe32fe0dc84271ca9faf7722f0ea;hpb=bdab145ebb1c29e7ec08d6aff4b25f9282fa4d2f;p=perl%2Fmodules%2Fsubs-auto.git

diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm
index 7fb55b8..d92f17a 100644
--- a/lib/subs/auto.pm
+++ b/lib/subs/auto.pm
@@ -11,13 +11,13 @@ subs::auto - Read barewords as subroutine names.
 
 =head1 VERSION
 
-Version 0.06
+Version 0.07
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.06';
+ $VERSION = '0.07';
 }
 
 =head1 SYNOPSIS
@@ -36,7 +36,7 @@ BEGIN {
                       #  or "print(foo('wut'))" otherwise
     } # ... but function calls will fail at run-time if you don't
       # actually define foo somewhere
-    
+
     foo; # BANG
 
 =head1 DESCRIPTION
@@ -87,7 +87,7 @@ my %core;
 delete @core{qw<my local>};
 
 BEGIN {
- *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ($] < 5.011002 ? 0 : 1) . '}'
+ *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ("$]" < 5.011002 ? 0 : 1) . '}'
 }
 
 my $tag = wizard data => sub { \(my $data = _REFCNT_PLACEHOLDERS ? 2 : 1) };