X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=108792c5684762a5f38d725331b5b79932a9a689;hb=f95521895fd4a79f0a7353706eab4a7d4335889e;hp=287e7f80a127cc5358294c9bf1213188f151b4d3;hpb=54484b54f82d64510177eb30b4f0a287864bd8cc;p=perl%2Fmodules%2Fsubs-auto.git

diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm
index 287e7f8..108792c 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<wizard cast dispell getdata>;
 
 BEGIN {
  unless (Variable::Magic::VMG_UVAR) {
@@ -84,10 +84,10 @@ my %core;
  @B::Keywords::Functions,
  'DATA',
 } = ();
-delete @core{qw/my local/};
+delete @core{qw<my local>};
 
 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<eval STRING>.
 
 L<perl> 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<Variable::Magic> with C<uvar> magic enabled (this should be assured by the required perl version).
 
 L<B::Keywords>.
 
-L<Carp> (standard since perl 5), L<XSLoader> (since 5.006).
+L<Carp> (standard since perl 5), L<XSLoader> (since 5.6.0).
 
 =head1 AUTHOR