-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 | |||
@@ -11,6 +11,10 @@ while(<FILE>){$packages.=$_;} | |||
11 | close(FILE); | 11 | 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,; |
16 | ($filename=$cfg)=~s,(.*/)(.*),$2,; | 20 | ($filename=$cfg)=~s,(.*/)(.*),$2,; |
@@ -46,5 +50,5 @@ print $post; | |||
46 | select(STDOUT); | 50 | select(STDOUT); |
47 | close(CFG); | 51 | close(CFG); |
48 | 52 | } | |
49 | exit; | 53 | exit; |
50 | 54 | ||
@@ -83,5 +87,5 @@ use vars qw/*name *dir *prune/; | |||
83 | 87 | ||
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)){ |
87 | return; | 91 | return; |