--- nfo/perl/libs/libsetup.pm	2002/07/27 00:28:36	1.1
+++ nfo/perl/libs/libsetup.pm	2002/10/25 11:38:50	1.2
@@ -1,8 +1,13 @@
 #################################
 #
-#  $Id: libsetup.pm,v 1.1 2002/07/27 00:28:36 cvsjoko Exp $
+#  $Id: libsetup.pm,v 1.2 2002/10/25 11:38:50 joko Exp $
 #
 #  $Log: libsetup.pm,v $
+#  Revision 1.2  2002/10/25 11:38:50  joko
+#  + sub checkCommonDeps
+#  + sub checkDeps_orig
+#  + refactored sub checkDeps
+#
 #  Revision 1.1  2002/07/27 00:28:36  cvsjoko
 #  + new
 #
@@ -62,7 +67,13 @@
   }
 
 
-sub checkDeps {
+sub checkCommonDeps {
+  checkDeps_orig(\@modules);
+}
+
+sub checkDeps_orig {
+  my $modules = shift;
+  my @modules = @{$modules};
   map {
     #print $_, "\n";
     print "testing for \"$_\" ...";
@@ -83,5 +94,20 @@
   } @modules;
 }
 
+sub checkDeps {
+  my $modules = shift;
+  my @modules = @{$modules};
+  my $result;
+  map {
+    my $evalcmd = "use $_;";
+    eval($evalcmd);
+    if ($@) {
+      $result->{$_} = 0;
+    } else {
+      $result->{$_} = 1;
+    }
+  } @modules;
+  return $result;
+}
 
 1;