X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=lib%2FSub%2FOp.pm;fp=lib%2FSub%2FOp.pm;h=3ed2f4694cf3d3af5d238f45f3e9d514b22d4d8a;hp=0a96fa643ea1ce46c7a4568e4c28cb28758a567b;hb=dc53229be14e9de81e0524ef39fc5e7431b975b8;hpb=ac9319bcf4ee5b90f2262a5a22482a5b35eaad4a

diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm
index 0a96fa6..3ed2f46 100644
--- a/lib/Sub/Op.pm
+++ b/lib/Sub/Op.pm
@@ -149,7 +149,7 @@ my $sw = Variable::Magic::wizard(
     CORE::warn(@_) unless $_[0] =~ /^Constant subroutine.*redefined/;
    } if _constant_sub(do { no strict 'refs'; \&$fqn });
    no strict 'refs';
-   no warnings qw/prototype redefine/;
+   no warnings qw<prototype redefine>;
    *$fqn = $placeholder;
   }