... or die "Can't print: $!"

1 files changed, 5 insertions, 5 deletions

diff --git a/psresize2.pl b/psresize2.pl
index 0a0910d..ba92bf0 100755
--- a/psresize2.pl
+++ b/psresize2.pl
@@ -263,15 +263,15 @@ if (defined $crop) {
                 my $s = "[" . ++$p . "] ";
                 $c += length $s;
                 if ($c >= 80) {
-                    print LOG "\n";
+                    print LOG "\n"  or  die "Can't close: $!";
                     $c = length $s;
                 }
-                print LOG $s;
+                print LOG $s  or  die "Can't close: $!";
             }
         }
     }
     close GSOUT  or  die "Can't close: $!";;
-    print LOG "\n"  unless  defined $quiet;
+    print LOG "\n"  or  die "Can't close: $!"  unless  defined $quiet;
     
     # No zombie processes
     waitpid $pid, 0;
@@ -293,7 +293,7 @@ if (defined $crop) {
     pipe *READ, *WRITE  or  die "Can't pipe: $!";
 
     while (not (@bbox) && defined (my $l = <FIN>)) {
-        print WRITE $l;
+        print WRITE $l  or  die "Can't close: $!";
         @bbox = ($1, $2, $3, $4)
             if ($l =~ m/^\%\%BoundingBox: (\d+) (\d+) (\d+) (\d+)/);
     }
@@ -306,7 +306,7 @@ if (defined $crop) {
         close READ  or  die "Can't close: $!";;
         
         while (<FIN>) {
-            print WRITE;
+            print WRITE  or  die "Can't close: $!";
         }
         exit;
     }