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/makecfg.pl | |
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 | |||
@@ -10,8 +10,12 @@ open(FILE, "<./packages"); | |||
10 | while(<FILE>){$packages.=$_;} | 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,; |
17 | ($tagname=$dirname)=~s,.*/,,; | 21 | ($tagname=$dirname)=~s,.*/,,; |
@@ -45,7 +49,7 @@ File::Find::find({wanted => \&wanted}, $dirname); | |||
45 | print $post; | 49 | print $post; |
46 | select(STDOUT); | 50 | select(STDOUT); |
47 | close(CFG); | 51 | close(CFG); |
48 | 52 | } | |
49 | exit; | 53 | exit; |
50 | 54 | ||
51 | open(FILE,">$dir/config.in"); | 55 | open(FILE,">$dir/config.in"); |
@@ -82,7 +86,7 @@ use vars qw/*name *dir *prune/; | |||
82 | *prune = *File::Find::prune; | 86 | *prune = *File::Find::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; |
88 | } | 92 | } |