From 8b278a76d90e3724815a5fde32be59f7796be1d8 Mon Sep 17 00:00:00 2001 From: Jo-Philipp Wich 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 Signed-off-by: Petr Štetiar --- 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;