diff options
author | Jacob Pipkin <j@dawnrazor.net> | 2012-06-11 23:05:21 -0500 |
---|---|---|
committer | Jacob Pipkin <j@dawnrazor.net> | 2012-06-11 23:05:21 -0500 |
commit | 8dfe0461d5e4ae3ef31c0a01a9cc04e7334a458c (patch) | |
tree | d9c78b0077beb355f19075614759074b1ecc09b2 /sbofind | |
parent | 3fe7112f8c96478a55eeebe0d63665c1435c5dda (diff) | |
download | sbotools2-8dfe0461d5e4ae3ef31c0a01a9cc04e7334a458c.tar.xz |
bunch more code reductions and stuff
Diffstat (limited to 'sbofind')
-rwxr-xr-x | sbofind | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -66,8 +66,8 @@ FIRST: while (my $line = <$fh>) { } sub get_file_contents { - script_error ('get_file_contents requires an argument') unless exists $_[0]; - script_error ('get_file_contents argument is not a file') unless -f $_[0]; + exists $_[0] or script_error ('get_file_contents requires an argument'); + -f $_[0] or script_error ('get_file_contents argument is not a file'); my $fh = open_read (shift); my $contents = do {local $/; <$fh>}; $contents =~ s/\n/\n /g; |