From 8b278a76d90e3724815a5fde32be59f7796be1d8 Mon Sep 17 00:00:00 2001
From: Jo-Philipp Wich <jo@mein.io>
Date: Tue, 30 Aug 2022 18:20:04 +0200
Subject: [PATCH] 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>
---
 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;