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 |  |