From 863d5da6bf5df47d1982e810ae322f90c8a1c140 Mon Sep 17 00:00:00 2001 From: Stas Degteff Date: Sun, 2 Oct 2005 01:21:59 +0000 Subject: [PATCH] Add header to generated xlatcharset include file --- cfgs/config/xlatcfg.pl | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/cfgs/config/xlatcfg.pl b/cfgs/config/xlatcfg.pl index 808408b..25e5c58 100755 --- a/cfgs/config/xlatcfg.pl +++ b/cfgs/config/xlatcfg.pl @@ -21,7 +21,17 @@ my $dir=$ARGV[0], $out=$ARGV[1]; my @files=<$dir/*.chs>; +if( $#files < 0 ){ + die "$dir/ don't contains files like *.chs, exit\n"; +} open OUT, ">$out" || die "Can't open/create file '$out': $!\n"; +print OUT <