diff options
| author | Jo-Philipp Wich <jo@mein.io> | 2022-08-30 18:20:04 +0200 |
|---|---|---|
| committer | Petr Štetiar <ynezz@true.cz> | 2022-09-06 08:04:53 +0200 |
| commit | 8b278a76d90e3724815a5fde32be59f7796be1d8 (patch) | |
| tree | 6f9d20d7cf084bec4a734fe54a0d8b124fc632fe /scripts | |
| parent | 2117d04a3aaad3394c0afec799d9c43f8a09c2cf (diff) | |
| download | upstream-8b278a76d90e3724815a5fde32be59f7796be1d8.tar.gz upstream-8b278a76d90e3724815a5fde32be59f7796be1d8.tar.bz2 upstream-8b278a76d90e3724815a5fde32be59f7796be1d8.zip | |
scripts: xxdi.pl: remove File::Slurp dependency
In order to make it more portable.
Signed-off-by: Jo-Philipp Wich <jo@mein.io>
Signed-off-by: Petr Štetiar <ynezz@true.cz>
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/xxdi.pl | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/scripts/xxdi.pl b/scripts/xxdi.pl index acc974c4b3..1f960902be 100755 --- a/scripts/xxdi.pl +++ b/scripts/xxdi.pl @@ -14,9 +14,24 @@ use strict; use warnings; -use File::Slurp qw(slurp); -my $indata = slurp(@ARGV ? $ARGV[0] : \*STDIN); +my $indata; + +{ + local $/; + my $fh; + + if (@ARGV) { + open($fh, '<:raw', $ARGV[0]) || die("Unable to open $ARGV[0]: $!\n"); + } else { + $fh = \*STDIN; + } + + $indata = readline $fh; + + close $fh; +} + my $len_data = length($indata); my $num_digits_per_line = 12; my $var_name; |