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
Return OPERATOR('[') for '[' without falling through to case '~', avoiding misinterpr...
[perl5.git]
/
keywords.pl
diff --git
a/keywords.pl
b/keywords.pl
index
3603570
..
6ede805
100755
(executable)
--- a/
keywords.pl
+++ b/
keywords.pl
@@
-36,7
+36,7
@@
while (<DATA>) {
print $kw "\n/* ex: set ro: */\n";
-
close $kw or die "Error closing keywords.h-new: $!"
;
+
safer_close($kw)
;
rename_if_different("keywords.h-new", "keywords.h");