summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-10-14 15:52:49 +0000
committerFrancois Pons <fpons@mandriva.com>1999-10-14 15:52:49 +0000
commitb99336c5440cb50de9e8ca46833df72415deb723 (patch)
tree488b89ca8ebdbdcb86c4ded06d7e6de766fbf75c /perl-install/common.pm
parentd0c9225cfba0d80b3a3652db6376b8474ede0750 (diff)
downloaddrakx-b99336c5440cb50de9e8ca46833df72415deb723.tar
drakx-b99336c5440cb50de9e8ca46833df72415deb723.tar.gz
drakx-b99336c5440cb50de9e8ca46833df72415deb723.tar.bz2
drakx-b99336c5440cb50de9e8ca46833df72415deb723.tar.xz
drakx-b99336c5440cb50de9e8ca46833df72415deb723.zip
*** empty log message ***
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm2
1 files changed, 1 insertions, 1 deletions
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], $_)
}