unifont-7.0.06.tar.gz
[unifont.git] / src / bdfimplode
index 4c92661360dd41c2d957a950d51a77caac187de9..8584ff60f32e0a67fbdd58adef738a73fe02d162 100755 (executable)
@@ -18,7 +18,7 @@
 #    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #
 
-if (/^ENCODING\s+(\d+)/) { printf ("%04X:", $1); }
+if (/^ENCODING\s+(\d+)/) { printf ("%04X:", $1) or die ("Cannot print to stdout.\n"); }
 elsif (/^BITMAP/) { $BITMAP=1; }
-elsif (/^ENDCHAR/) { $BITMAP=0; print "\n"; }
-elsif ($BITMAP) { y/a-f/A-F/; s/\n$//; print; }
+elsif (/^ENDCHAR/) { $BITMAP=0; print "\n" or die ("Cannot print to stdout.\n"); }
+elsif ($BITMAP) { y/a-f/A-F/; s/\n$//; print or die ("Cannot print to stdout.\n"); }