| author | kergoth <kergoth> | 2002-11-05 16:33:50 (UTC) |
|---|---|---|
| committer | kergoth <kergoth> | 2002-11-05 16:33:50 (UTC) |
| commit | d590a056fde3eb4ad37ecd202ea024a9ad110106 (patch) (unidiff) | |
| tree | 4ab78078234f70d786e172a9408b208582e175a5 /scripts | |
| parent | 6561744765fdc099767c285e95ab9eb09d6087cb (diff) | |
| download | opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.zip opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.gz opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.bz2 | |
tweaks
| -rwxr-xr-x | scripts/makecfg.pl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/scripts/makecfg.pl b/scripts/makecfg.pl index 20c23f5..5dd66a4 100755 --- a/scripts/makecfg.pl +++ b/scripts/makecfg.pl | |||
| @@ -12,4 +12,8 @@ close(FILE); | |||
| 12 | 12 | ||
| 13 | my ($dirname,$dir,$cfg,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck); | 13 | my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck); |
| 14 | $cfg = shift || die; | 14 | $file = shift || die; |
| 15 | push(@files, $file); | ||
| 16 | |||
| 17 | foreach(@files){ | ||
| 18 | my $cfg=$_; | ||
| 15 | ($dirname=$cfg)=~s,(.*)/(.*),$1,; | 19 | ($dirname=$cfg)=~s,(.*)/(.*),$1,; |
| @@ -47,3 +51,3 @@ select(STDOUT); | |||
| 47 | close(CFG); | 51 | close(CFG); |
| 48 | 52 | } | |
| 49 | exit; | 53 | exit; |
| @@ -84,3 +88,3 @@ use vars qw/*name *dir *prune/; | |||
| 84 | sub wanted { | 88 | sub wanted { |
| 85 | if( /config.in/s ) { | 89 | if( /config.in$/s ) { |
| 86 | if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){ | 90 | if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){ |