From 4c795af58b06b23a8caddf219c56ce021a590fdb Mon Sep 17 00:00:00 2001
From: Jo-Philipp Wich <jo@mein.io>
Date: Tue, 30 Aug 2022 18:20:04 +0200
Subject: scripts: xxdi.pl: remove File::Slurp dependency
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
In order to make it more portable.
Signed-off-by: Jo-Philipp Wich <jo@mein.io>
Signed-off-by: Petr Štetiar <ynezz@true.cz>
(cherry picked from commit 8b278a76d90e3724815a5fde32be59f7796be1d8)
---
scripts/xxdi.pl | 19 +++++++++++++++++--
1 file 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;
--
cgit v1.2.3