put signature ops in their own subtree.

[perl5.git] / ext / XS-APItest / APItest.pm

diff --git a/ext/XS-APItest/APItest.pm b/ext/XS-APItest/APItest.pm
index 823d6cc..fdf5b85 100644 (file)
--- a/ext/XS-APItest/APItest.pm
+++ b/ext/XS-APItest/APItest.pm
@@ -1,11 +1,11 @@
 package XS::APItest;
 
-{ use 5.011001; }
+{ use 5.011001; } # 5.11 is a long long time ago... What gives with this?
 use strict;
 use warnings;
 use Carp;
 
-our $VERSION = '0.55';
+our $VERSION = '1.04';
 
 require XSLoader;
 
@@ -40,7 +40,7 @@ sub import {
        }
     }
     foreach (keys %{$exports||{}}) {
-       next unless /\A(?:rpn|calcrpn|stufftest|swaptwostmts|looprest|scopelessblock|stmtasexpr|stmtsasexpr|loopblock|blockasexpr|swaplabel|labelconst|arrayfullexpr|arraylistexpr|arraytermexpr|arrayarithexpr|arrayexprflags)\z/;
+       next unless /\A(?:rpn|calcrpn|stufftest|swaptwostmts|looprest|scopelessblock|stmtasexpr|stmtsasexpr|loopblock|blockasexpr|swaplabel|labelconst|arrayfullexpr|arraylistexpr|arraytermexpr|arrayarithexpr|arrayexprflags|subsignature|DEFSV|with_vars|join_with_space)\z/;
        $^H{"XS::APItest/$_"} = 1;
        delete $exports->{$_};
     }
@@ -254,6 +254,10 @@ They are lexically scoped.
 
 =over
 
+=item DEFSV
+
+Behaves like C<$_>.
+
 =item rpn(EXPRESSION)
 
 This construct is a Perl expression.  I<EXPRESSION> must be an RPN