| -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); -my ($dirname,$dir,$cfg,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck); -$cfg = shift || die; +my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck); +$file = shift || die; +push(@files, $file); + +foreach(@files){ +my $cfg=$_; ($dirname=$cfg)=~s,(.*)/(.*),$1,; @@ -47,3 +51,3 @@ select(STDOUT); close(CFG); - +} exit; @@ -84,3 +88,3 @@ use vars qw/*name *dir *prune/; sub wanted { - if( /config.in/s ) { + if( /config.in$/s ) { if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){ |