projects
/
catagits/HTML-Zoom.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
adb30a8
)
revert this shit
John Napiorkowski [Mon, 27 Sep 2010 17:44:59 +0000 (13:44 -0400)]
maint/synopsis-extractor
patch
|
blob
|
blame
|
history
diff --git
a/maint/synopsis-extractor
b/maint/synopsis-extractor
index
57e7437
..
21980b4
100755
(executable)
--- a/
maint/synopsis-extractor
+++ b/
maint/synopsis-extractor
@@
-8,13
+8,7
@@
use File::Find;
use File::Spec;
sub slurp_file {
- undef $/;
- open(my $fh, '<', shift) || return;
- if(my $whole_file = <$fh>) {
- return $whole_file;
- } else {
- return;
- }
+ local (@ARGV, $/) = ($_[0]); <>
}
sub extract_synopsis {