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 7e10b4eba475c3916a6e1685d43c8b6ddcea90f1..3ed2f4694cf3d3af5d238f45f3e9d514b22d4d8a 100644 (file)
--- a/lib/Sub/Op.pm
+++ b/lib/Sub/Op.pm
@@ -50,7 +50,8 @@ In your XS file :
      refgen   = pushmark->op_sibling;
      gvop     = sub_op_study(o, &last_arg, &rv2cv);
 
-     /* Replace the function name by the refgen that contains the anon sub */
+     /* Replace the function name by the refgen that contains
+        the anon sub */
      op_free(rv2cv);
      last_arg->op_sibling = refgen;
      pushmark->op_sibling = refgen->op_sibling;
@@ -148,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;
   }
 
@@ -411,6 +412,9 @@ I know a few ways of fixing this, but I've not yet decided on which.
 
 L<perl> 5.10.
 
+A C compiler.
+This module may happen to build with a C++ compiler as well, but don't rely on it, as no guarantee is made in this regard.
+
 L<Variable::Magic>, L<B::Hooks::EndOfScope>.
 
 L<ExtUtils::Depends>.