projects
/
catagits/HTML-Zoom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
revert this shit
[catagits/HTML-Zoom.git]
/
maint
/
synopsis-extractor
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 {