--- nfo/perl/libs/libsetup.pm 2002/10/25 11:38:50 1.2 +++ nfo/perl/libs/libsetup.pm 2002/12/01 22:12:25 1.3 @@ -1,8 +1,11 @@ ################################# # -# $Id: libsetup.pm,v 1.2 2002/10/25 11:38:50 joko Exp $ +# $Id: libsetup.pm,v 1.3 2002/12/01 22:12:25 joko Exp $ # # $Log: libsetup.pm,v $ +# Revision 1.3 2002/12/01 22:12:25 joko +# + changed status-flags: 0 => 'notok' 1 => 'ok' +# # Revision 1.2 2002/10/25 11:38:50 joko # + sub checkCommonDeps # + sub checkDeps_orig @@ -102,9 +105,9 @@ my $evalcmd = "use $_;"; eval($evalcmd); if ($@) { - $result->{$_} = 0; + $result->{$_} = 'notok'; } else { - $result->{$_} = 1; + $result->{$_} = 'ok'; } } @modules; return $result;