aboutsummaryrefslogtreecommitdiffstats
path: root/scripts
diff options
context:
space:
mode:
authorJo-Philipp Wich <jo@mein.io>2022-08-30 18:20:04 +0200
committerPetr Štetiar <ynezz@true.cz>2022-09-06 08:04:53 +0200
commit8b278a76d90e3724815a5fde32be59f7796be1d8 (patch)
tree6f9d20d7cf084bec4a734fe54a0d8b124fc632fe /scripts
parent2117d04a3aaad3394c0afec799d9c43f8a09c2cf (diff)
downloadupstream-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-xscripts/xxdi.pl19
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;