Switch to qw<>

[perl/modules/re-engine-Plugin.git] / Plugin.pm

diff --git a/Plugin.pm b/Plugin.pm
index df2a9f61fcb251818845411a34386164ecf6e73e..bf739f989f5e9fda90aa79841658dffaa6cefc37 100644 (file)
--- 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>;
 
     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>;
 
     for my $key (keys %callback) {
         my $name = $map{$key};