scripts: xxdi.pl: remove File::Slurp dependency

In order to make it more portable. Signed-off-by: Jo-Philipp Wich <[email protected]> Signed-off-by: Petr Štetiar <[email protected]>
LQ2002 · Sep 6, 2022 · 8b278a7 · 8b278a7
1 parent 2117d04
commit 8b278a7
Showing 1 changed file with 17 additions and 2 deletions.
diff --git 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;