X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Plugin.git;a=blobdiff_plain;f=Plugin.pm;fp=Plugin.pm;h=ad5e21949986b2847c1f0704325ce897fa9ba7f2;hp=93ac7e68a116a1bd097726f43930760de6a084d6;hb=d4db715e455063f957068da7ac3bc548935f9ff5;hpb=908271b6e3cd68ae73cbd007d021af2670ed0558

diff --git a/Plugin.pm b/Plugin.pm
index 93ac7e6..ad5e219 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<comp exec free>;
 
     for (@callback) {
         next unless exists $sub{$_};
@@ -55,7 +55,7 @@ sub callbacks
 {
     my ($re, %callback) = @_;
 
-    my %map = map { $_ => "_$_" } qw<exec>;
+    my %map = map { $_ => "_$_" } qw<exec free>;
 
     for my $key (keys %callback) {
         my $name = $map{$key};