fixed generated header comment

diff --git a/charset/misc/trunicode b/charset/misc/trunicode
index 6e50073db34595beb3efc748d1b71855547d1a79..6c610343d2e79ace209784501d3d3746e499f800 100755 (executable)
--- a/charset/misc/trunicode
+++ b/charset/misc/trunicode
@@ -1,14 +1,17 @@
 #!/usr/bin/perl
 #!/usr/bin/perl

+#      Import charset tables from ftp.unicode.org
+#      (c) 2003, Robert Spalek <robert@ucw.cz>

 
 foreach $file (@ARGV)
 {
        print "Converting $file\n";
 
 foreach $file (@ARGV)
 {
        print "Converting $file\n";

+       ($prefix, $filename) = $file =~ m|^(.*/)([^/]*)$|;

 
        open(fi, "<$file") || die;
        open(fo, ">$file-tr") || die;
 
        open(fi, "<$file") || die;
        open(fo, ">$file-tr") || die;

-       print fo "# $file charset file
+       print fo "# $filename charset file

 # Imported from ftp://ftp.unicode.org/Public/MAPPINGS/$file
 # Imported from ftp://ftp.unicode.org/Public/MAPPINGS/$file

-# (c) 2003, Robert Spalek <robert@ucw.cz>
+# (c) 2003, Robert Spalek <robert\@ucw.cz>

 
 ";
        while (<fi>)
 
 ";
        while (<fi>)