pegatino: improve error reporting

1 files 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;