Switch qw delimiters to <>

[perl/modules/Sub-Op.git] / lib / Sub / Op.pm

diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm
index 0a96fa643ea1ce46c7a4568e4c28cb28758a567b..3ed2f4694cf3d3af5d238f45f3e9d514b22d4d8a 100644 (file)
--- 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;
   }