summaryrefslogtreecommitdiff
Unidiff
Diffstat (more/less context) (ignore whitespace changes)
-rwxr-xr-xscripts/deps.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/deps.pl b/scripts/deps.pl
index a219e36..21f816b 100755
--- a/scripts/deps.pl
+++ b/scripts/deps.pl
@@ -1,45 +1,45 @@
1#!/usr/bin/perl -w 1#!/usr/bin/perl -w
2 2
3use strict; 3use strict;
4 4
5my %depends; 5my %depends;
6my %tokenpath; 6my %tokenpath;
7 7
8sub getdepends ($$) 8sub getdepends ($$)
9{ 9{
10 my ($token, $path, $intoken); 10 my ($token, $path, $intoken);
11 $token = shift || return; 11 $token = shift || return;
12 $token =~ s/CONFIG_//; 12 $token =~ s/CONFIG_//;
13 $path = shift || return; 13 $path = shift || return;
14#print "opening $path/config.in\n"; 14#print "opening $path/config.in\n";
15 #print "token is $token\n"; 15 #print "token is $token\n";
16 open( FILE, "< $path/config.in" ) || return; 16 open( FILE, "< $path/config.in" ) || return;
17 $intoken = 0; 17 $intoken = 0;
18 while( <FILE> ) { 18 while( <FILE> ) {
19 if( $intoken == 1 ) { 19 if( $intoken == 1 ) {
20 /depends\S*(.*)/ && return $1; 20 /depends\S*(.*)/ && return $1;
21 if( /\S*(config|menu)/ ) { 21 if( /^\s*(config|menu)/ ) {
22 $intoken = 0; 22 $intoken = 0;
23 return; 23 return;
24 } 24 }
25 } else { 25 } else {
26 /$token/ || next; 26 /$token/ || next;
27 $intoken = 1; 27 $intoken = 1;
28 } 28 }
29 /$token/ || next; 29 /$token/ || next;
30 } 30 }
31 close( FILE ); 31 close( FILE );
32 return; 32 return;
33} 33}
34 34
35sub makedepends ($$) 35sub makedepends ($$)
36{ 36{
37 my ($depends, $tokenpath, $token, $depword, $mustbesep, $state); 37 my ($depends, $tokenpath, $token, $depword, $mustbesep, $state);
38 $depends = shift || return; 38 $depends = shift || return;
39 $tokenpath = shift || return; 39 $tokenpath = shift || return;
40 $mustbesep = 0; 40 $mustbesep = 0;
41 41
42 for $token (keys %$depends){ 42 for $token (keys %$depends){
43 print ${$tokenpath}{$token} . " : "; 43 print ${$tokenpath}{$token} . " : ";
44 for (split(/\s+/, ${$depends}{$token})){ 44 for (split(/\s+/, ${$depends}{$token})){
45 /^\s+$/ && next; 45 /^\s+$/ && next;