unifont-7.0.06.tar.gz

[unifont.git] / src / unifontchojung

diff --git a/src/unifontchojung b/src/unifontchojung
index a94e4dd6425b9e86497efdf663665c4a9e201bef..06cafbea50dafa388ac1ea6092c431c905bbdde9 100755 (executable)
--- a/src/unifontchojung
+++ b/src/unifontchojung
@@ -82,7 +82,7 @@ $nextchojung = shift(@chojung); # get first code point to find
 
 while (<>) {
    if (substr($nextchojung, 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 ($#chojung < 0) {
          exit;