[Midnightbsd-cvs] mports: DBI.pm: fix ping method.

[ctriv at midnightbsd.org]

Log Message:
-----------
fix ping method.

Modified Files:
--------------
    mports/Tools/lib/Magus:
        DBI.pm (r1.5 -> r1.6)

-------------- next part --------------
Index: DBI.pm
===================================================================
RCS file: /home/cvs/mports/Tools/lib/Magus/DBI.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -L Tools/lib/Magus/DBI.pm -L Tools/lib/Magus/DBI.pm -u -r1.5 -r1.6
--- Tools/lib/Magus/DBI.pm
+++ Tools/lib/Magus/DBI.pm
@@ -50,14 +50,15 @@
 
 sub ping {
   my ($class) = @_;
-  
+  my $ret = 0;
+    
   eval {
     my $dbh = $class->db_Main();
     
-    return $dbh->ping;
+    $ret = $dbh->ping;
   };
   
-  return;
+  return $ret;  
 }