X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Plugin.pm;h=eb8aec09903736fe588cf4c7b427103f338b79e6;hb=0a26bb24ee087faf683f84504a16f5e6c3f9fe06;hp=df2a9f61fcb251818845411a34386164ecf6e73e;hpb=37642baad6c2d95e8a557017d221496095053def;p=perl%2Fmodules%2Fre-engine-Plugin.git diff --git a/Plugin.pm b/Plugin.pm index df2a9f6..eb8aec0 100644 --- a/Plugin.pm +++ b/Plugin.pm @@ -6,7 +6,7 @@ use strict; our ($VERSION, @ISA); BEGIN { - $VERSION = '0.08'; + $VERSION = '0.09'; # All engines should subclass the core Regexp package @ISA = 'Regexp'; require XSLoader; @@ -20,7 +20,7 @@ sub import my ($pkg, %sub) = @_; # Valid callbacks - my @callback = qw(comp exec); + my @callback = qw; for (@callback) { next unless exists $sub{$_}; @@ -55,7 +55,7 @@ sub callbacks { my ($re, %callback) = @_; - my %map = map { $_ => "_$_" } qw/exec/; + my %map = map { $_ => "_$_" } qw; for my $key (keys %callback) { my $name = $map{$key};