This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Remove a spurious undefined warning when using getopts.pl with -w.
[perl5.git]
/
lib
/
strict.pm
diff --git
a/lib/strict.pm
b/lib/strict.pm
index
40fb56e
..
d14391a
100644
(file)
--- a/
lib/strict.pm
+++ b/
lib/strict.pm
@@
-115,7
+115,7
@@
on the left hand side of the C<< => >> symbol.
use strict 'subs';
$SIG{PIPE} = Plumber; # blows up
- $SIG{PIPE} = "Plumber"; # just fine:
bareword in curlie
s always ok
+ $SIG{PIPE} = "Plumber"; # just fine:
quoted string i
s always ok
$SIG{PIPE} = \&Plumber; # preferred form
=back