From b99336c5440cb50de9e8ca46833df72415deb723 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 14 Oct 1999 15:52:49 +0000
Subject: *** empty log message ***

---
 perl-install/common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/common.pm')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 7a9bddc5d..481ce793f 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -224,7 +224,7 @@ sub syscall_ {
 
 
 sub crypt_ {
-    local $_ = (gettimeofday())[1] % 0x40;
+    local $_ = sprintf("%2d", (gettimeofday())[1] % 0x40); #- make sure it is 2 char long.
     tr [\0-\x3f] [0-9a-zA-Z./];
     crypt($_[0], $_)
 }
-- 
cgit v1.2.1