X-Git-Url: http://git.shiar.net/unifont.git/blobdiff_plain/97511ef2ebd8e36eb5765eaa6f2f19ea97f88161..8e42f3d15c39e5c98149c9647c0cc1a318e9321a:/src/johab2ucs2

diff --git a/src/johab2ucs2 b/src/johab2ucs2
index 664a7f0..456e36e 100755
--- a/src/johab2ucs2
+++ b/src/johab2ucs2
@@ -277,7 +277,7 @@ for ( $j=0 ; $j <  11172 ;  $j++ ) {
    $medial = int($j / 28 ) % 21+1 ; 
    $final = $j % 28;
   
-   printf ("%04X:%64s\n", $j+0xAC00, &compose_hangul($init,$medial,$final));
+   printf ("%04X:%64s\n", $j+0xAC00, &compose_hangul($init,$medial,$final)) or die ("Cannot print to stdout.\n");
 
 }
 
@@ -292,7 +292,7 @@ sub compose_hangul
 
    for ( $i = 0; $i < 32; $i++) {
       $bit[$i]=sprintf("%02X", 
-         hex($l_bit[$i]) | hex($m_bit[$i]) | hex($f_bit[$i]) );
+         hex($l_bit[$i]) | hex($m_bit[$i]) | hex($f_bit[$i]) ) or die ("Cannot print to stdout.\n");
    }
 
    return pack("a2" x 32, @bit );