X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/052efbb4bc89c88e371891d940de33daf2eedf9e..4e3e027a77ba070985c4006b111360ea9bf0f2a1:/ext/XS-APItest/APItest.pm diff --git a/ext/XS-APItest/APItest.pm b/ext/XS-APItest/APItest.pm index 875579e..2fda1fc 100644 --- a/ext/XS-APItest/APItest.pm +++ b/ext/XS-APItest/APItest.pm @@ -5,7 +5,7 @@ use strict; use warnings; use Carp; -our $VERSION = '0.80'; +our $VERSION = '1.12'; 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|DEFSV|with_vars|join_with_space)\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->{$_}; }