Parent Directory | Revision Log | Patch
revision 1.2 by joko, Fri Oct 25 11:38:50 2002 UTC | revision 1.3 by joko, Sun Dec 1 22:12:25 2002 UTC | |
---|---|---|
# | Line 3 | Line 3 |
3 | # $Id$ | # $Id$ |
4 | # | # |
5 | # $Log$ | # $Log$ |
6 | # Revision 1.3 2002/12/01 22:12:25 joko | |
7 | # + changed status-flags: 0 => 'notok' 1 => 'ok' | |
8 | # | |
9 | # Revision 1.2 2002/10/25 11:38:50 joko | # Revision 1.2 2002/10/25 11:38:50 joko |
10 | # + sub checkCommonDeps | # + sub checkCommonDeps |
11 | # + sub checkDeps_orig | # + sub checkDeps_orig |
# | Line 102 sub checkDeps { | Line 105 sub checkDeps { |
105 | my $evalcmd = "use $_;"; | my $evalcmd = "use $_;"; |
106 | eval($evalcmd); | eval($evalcmd); |
107 | if ($@) { | if ($@) { |
108 | $result->{$_} = 0; | $result->{$_} = 'notok'; |
109 | } else { | } else { |
110 | $result->{$_} = 1; | $result->{$_} = 'ok'; |
111 | } | } |
112 | } @modules; | } @modules; |
113 | return $result; | return $result; |
|
MailToCvsAdmin">MailToCvsAdmin | ViewVC Help |
Powered by ViewVC 1.1.26 |