From 932c7c3aeba300f7998473e081f8b139d347de7c Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Sat, 26 Aug 2023 13:57:34 +0200
Subject: pegatino: improve error reporting

---
 pegatino.pl | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/pegatino.pl b/pegatino.pl
index 1fa884b..1a732de 100755
--- a/pegatino.pl
+++ b/pegatino.pl
@@ -17,19 +17,24 @@ binmode STDIN;
 my $origimg = <>;
 
 my ($origh, $origpath) = tempfile();
+my $newpath = $origpath . ".png";
 
+# Prepare to read original file
 binmode $origh;
 print $origh $origimg;
 close $origh;
 
+# Convert image
 my $imagick = Image::Magick->new;
-$imagick->Read($origpath);
-$imagick->Resize(geometry => '512x512');
-
-my $newpath = $origpath . ".png";
-$imagick->Write($newpath);
-
-open(my $newh, "<", $newpath);
+my $out = $imagick->Read($origpath);
+die "ERROR: $out" if "$out";
+$out = $imagick->Resize(geometry => '512x512');
+die "ERROR: $out" if "$out";
+$out = $imagick->Write($newpath);
+die "ERROR: $out" if "$out";
+
+# Read new file
+open(my $newh, "<", $newpath) or die $!;
 binmode $newh;
 my $newimg = <$newh>;
 close $newh;
-- 
cgit v1.2.3