unifont-7.0.06.tar.gz

[unifont.git] / src / unifontksx

diff --git a/src/unifontksx b/src/unifontksx
index 40de726537cab8ca7bbfa39d9bf435800ea1198b..e31bfe5e41f28266376762043e7bc12682e9f93c 100755 (executable)
--- a/src/unifontksx
+++ b/src/unifontksx
@@ -386,7 +386,7 @@ $nextksx = shift(@ksx); # get first code point to find
 
 while (<>) {
    if (substr($nextksx, 0, 5) eq substr($_, 0, 5)) {
-      print;  # this is one of the syllables we're seeking; print it
+      print or die ("Cannot print to stdout.\n");  # this is one of the syllables we're seeking; print it
       # Now get next Hangul Syllable to find; if no more, exit.
       if ($#ksx < 0) {
          exit;