X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=81ae297b55d17ed7916783acf6293d12bb8e682f;hp=d92f17a7691c8ebaed9fa4dbb0582b686f1dfe40;hb=36d43b44c6e3691cf0d34500c6f00c4676738756;hpb=46cd890ea5937a0a5a6f3270391c80720671c3ac diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm index d92f17a..81ae297 100644 --- a/lib/subs/auto.pm +++ b/lib/subs/auto.pm @@ -87,7 +87,7 @@ my %core; delete @core{qw}; BEGIN { - *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ("$]" < 5.011002 ? 0 : 1) . '}' + *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ("$]" < 5.011_002 ? 0 : 1) . '}' } my $tag = wizard data => sub { \(my $data = _REFCNT_PLACEHOLDERS ? 2 : 1) }; @@ -256,7 +256,7 @@ L with C magic enabled (this should be assured by the req L. -L (standard since perl 5), L (since 5.006). +L (standard since perl 5), L (since 5.6.0). =head1 AUTHOR