X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=blobdiff_plain;f=Plugin.pm;h=bf739f989f5e9fda90aa79841658dffaa6cefc37;hp=df2a9f61fcb251818845411a34386164ecf6e73e;hb=e20ad0b3c8306a73e1a0e0a1c5f88d6e84e3583e;hpb=9198b4f588644e22e005fe990c8321ce36a08375 diff --git a/Plugin.pm b/Plugin.pm index df2a9f6..bf739f9 100644 --- a/Plugin.pm +++ b/Plugin.pm @@ -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};