--- nfo/perl/libs/libp.pm	2002/12/22 14:15:02	1.12
+++ nfo/perl/libs/libp.pm	2002/12/23 04:25:13	1.13
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: libp.pm,v 1.12 2002/12/22 14:15:02 joko Exp $
+#  $Id: libp.pm,v 1.13 2002/12/23 04:25:13 joko Exp $
 #
 #  $Log: libp.pm,v $
+#  Revision 1.13  2002/12/23 04:25:13  joko
+#  + sub bool2status
+#
 #  Revision 1.12  2002/12/22 14:15:02  joko
 #  + sub mkObject
 #
@@ -66,6 +69,7 @@
     getNewPerlObjectByPkgName
     run_cmd run_cmds
     mkObject
+    bool2status
 );
 
 use Data::Dumper;
@@ -270,4 +274,9 @@
   }
 }
 
+sub bool2status {
+  my $bool = shift;
+  return ($bool ? 'ok' : 'failed');
+}
+
 1;