/[cvs]/nfo/perl/libs/libsetup.pm
ViewVC logotype

Diff of /nfo/perl/libs/libsetup.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed