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>

diff --git a/scripts/xxdi.pl b/scripts/xxdi.pl
index acc974c4b3cc8316001a28b12f41e9f581eac36f..1f960902beffd56f49ae1a378e69b6018cd0adc2 100755 (executable)
--- 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;