/[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.1 by cvsjoko, Sat Jul 27 00:28:36 2002 UTC revision 1.2 by joko, Fri Oct 25 11:38:50 2002 UTC
# Line 3  Line 3 
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  #  #
# Line 62  use warnings; Line 67  use warnings;
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 \"$_\" ...";
# Line 83  sub checkDeps { Line 94  sub checkDeps {
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;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed