--- nfo/perl/libs/libp.pm	2002/12/19 01:05:35	1.10
+++ nfo/perl/libs/libp.pm	2002/12/19 16:27:17	1.11
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: libp.pm,v 1.10 2002/12/19 01:05:35 joko Exp $
+#  $Id: libp.pm,v 1.11 2002/12/19 16:27:17 joko Exp $
 #
 #  $Log: libp.pm,v $
+#  Revision 1.11  2002/12/19 16:27:17  joko
+#  +- renamed 'cmd' to 'run_cmd'
+#
 #  Revision 1.10  2002/12/19 01:05:35  joko
 #  + sub today
 #
@@ -50,16 +53,15 @@
     md5 md5_hex md5_base64
     ParseDate UnixDate
     strftime
-    stripHtml stripSpaces stripNewLines toReal trim
     croak
+
+    stripHtml stripSpaces stripNewLines toReal trim
     array_getDifference
     getDirList
-    now
+    now today
     deep_copy
     getNewPerlObjectByPkgName
-    cmd
-    run_cmds
-    today
+    run_cmd run_cmds
 );
 
 use Data::Dumper;
@@ -236,7 +238,7 @@
   return $pkgname->new($args);
 }
 
-sub cmd ($) {
+sub run_cmd {
   my $cmd = shift;
   $cmd = 'perl ' . $cmd;
   my $sep = "-" x 90;
@@ -249,7 +251,7 @@
 
 sub run_cmds {
   foreach (@_) {
-    cmd($_);
+    run_cmd($_);
   }
 }