3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.2 2002/10/25 11:38:50 joko |
7 |
|
# + sub checkCommonDeps |
8 |
|
# + sub checkDeps_orig |
9 |
|
# + refactored sub checkDeps |
10 |
|
# |
11 |
# Revision 1.1 2002/07/27 00:28:36 cvsjoko |
# Revision 1.1 2002/07/27 00:28:36 cvsjoko |
12 |
# + new |
# + new |
13 |
# |
# |
67 |
} |
} |
68 |
|
|
69 |
|
|
70 |
sub checkDeps { |
sub checkCommonDeps { |
71 |
|
checkDeps_orig(\@modules); |
72 |
|
} |
73 |
|
|
74 |
|
sub checkDeps_orig { |
75 |
|
my $modules = shift; |
76 |
|
my @modules = @{$modules}; |
77 |
map { |
map { |
78 |
#print $_, "\n"; |
#print $_, "\n"; |
79 |
print "testing for \"$_\" ..."; |
print "testing for \"$_\" ..."; |
94 |
} @modules; |
} @modules; |
95 |
} |
} |
96 |
|
|
97 |
|
sub checkDeps { |
98 |
|
my $modules = shift; |
99 |
|
my @modules = @{$modules}; |
100 |
|
my $result; |
101 |
|
map { |
102 |
|
my $evalcmd = "use $_;"; |
103 |
|
eval($evalcmd); |
104 |
|
if ($@) { |
105 |
|
$result->{$_} = 0; |
106 |
|
} else { |
107 |
|
$result->{$_} = 1; |
108 |
|
} |
109 |
|
} @modules; |
110 |
|
return $result; |
111 |
|
} |
112 |
|
|
113 |
1; |
1; |