diff options
| -rwxr-xr-x | perl.req-from-meta | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl.req-from-meta b/perl.req-from-meta index 3105259..a38244a 100755 --- a/perl.req-from-meta +++ b/perl.req-from-meta @@ -7,7 +7,8 @@ use JSON qw{ from_json }; use YAML qw{ Load }; # slurp the file -my $path = shift; +my $path = <>; +chomp($path); open my $fh, '<', $path or die "can't open $path: $!"; my $data = do { local $/; <$fh> }; close $fh; |