X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=d794e62c7c3f11ec8dc44db7c6e628e00a6bb144;hb=e4b8573018009a32cb79c985988593201adc26eb;hp=287e7f80a127cc5358294c9bf1213188f151b4d3;hpb=54484b54f82d64510177eb30b4f0a287864bd8cc;p=perl%2Fmodules%2Fsubs-auto.git diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm index 287e7f8..d794e62 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 @@ -67,7 +67,7 @@ use B; use B::Keywords; -use Variable::Magic 0.31 qw/wizard cast dispell getdata/; +use Variable::Magic 0.31 qw; BEGIN { unless (Variable::Magic::VMG_UVAR) { @@ -84,10 +84,10 @@ my %core; @B::Keywords::Functions, 'DATA', } = (); -delete @core{qw/my local/}; +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) }; @@ -252,11 +252,14 @@ This pragma doesn't propagate into C. L 5.10.0. +A C compiler. +This module may happen to build with a C++ compiler as well, but don't rely on it, as no guarantee is made in this regard. + L with C magic enabled (this should be assured by the required perl version). L. -L (standard since perl 5), L (since 5.006). +L (standard since perl 5), L (since 5.6.0). =head1 AUTHOR @@ -283,7 +286,7 @@ Thanks to Sebastien Aperghis-Tramoni for helping to name this pragma. =head1 COPYRIGHT & LICENSE -Copyright 2008,2009,2010,2011 Vincent Pit, all rights reserved. +Copyright 2008,2009,2010,2011,2013 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.