--- Uniqid.pm.orig	Mon Jun 02 20:08:32 2003
+++ Uniqid.pm	Mon Mar 07 16:14:43 2005
@@ -50,7 +50,7 @@
 
 sub suniqid { ########################################### get unique id #####
   my($s,$us)=gettimeofday();
-  my($v)=sprintf("%06d%5d%06d",$us,substr($s,-5),$$);
+  my($v)=sprintf("%06d%05d%06d",$us,substr($s,-5),$$);
   return(&base62($v));
 }
 
@@ -63,7 +63,7 @@
 sub luniqid { ############################################ get unique id #####
   my($s,$us)=gettimeofday();
   my($ia,$ib,$ic,$id)=unpack("C4", (gethostbyname(hostname()))[4]);
-  my($v)=sprintf("%06d%10d%06d%03d%03d%03d%03d",$us,$s,$$,$ia,$ib,$ic,$id);
+  my($v)=sprintf("%06d%010d%06d%03d%03d%03d%03d",$us,$s,$$,$ia,$ib,$ic,$id);
 	return(&base62($v));
 }