From: Robert Spalek <robert@ucw.cz>
Date: Fri, 4 Jul 2003 13:14:25 +0000 (+0000)
Subject: fixed generated header comment
X-Git-Tag: holmes-import~1222
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=d1a2fe2de004eae170d4bb2bc22e04d948f464e8;p=libucw.git

fixed generated header comment
---

diff --git a/charset/misc/trunicode b/charset/misc/trunicode
index 6e50073d..6c610343 100755
--- a/charset/misc/trunicode
+++ b/charset/misc/trunicode
@@ -1,14 +1,17 @@
 #!/usr/bin/perl
+#	Import charset tables from ftp.unicode.org
+#	(c) 2003, Robert Spalek <robert@ucw.cz>
 
 foreach $file (@ARGV)
 {
 	print "Converting $file\n";
+	($prefix, $filename) = $file =~ m|^(.*/)([^/]*)$|;
 
 	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
-# (c) 2003, Robert Spalek <robert@ucw.cz>
+# (c) 2003, Robert Spalek <robert\@ucw.cz>
 
 ";
 	while (<fi>)