summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2004-01-23 13:35:29 +0000
committerStew Benedict <stewb@mandriva.org>2004-01-23 13:35:29 +0000
commit0355be7101baf8fdb5f7219b45bf2f198bb2b7da (patch)
treebae9ff5547f2f4ec635030708c09f7d6420dd7a2 /perl-install
parent17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d (diff)
downloaddrakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.tar
drakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.tar.gz
drakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.tar.bz2
drakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.tar.xz
drakx-0355be7101baf8fdb5f7219b45bf2f198bb2b7da.zip
Rework timestamp for backup files to please perl_checker.
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup24
1 files changed, 12 insertions, 12 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index c8ee648af..c9cd56210 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -25,7 +25,6 @@ use strict;
use interactive;
use common;
-use Time::localtime;
use detect_devices;
# Backend Options.
@@ -337,18 +336,19 @@ sub all_user_list() {
sub the_time() {
$the_time = "_";
- $the_time .= localtime->year + 1900;
- if (localtime->mon < 9) { $the_time .= "0" }
- $the_time .= localtime->mon + 1;
- if (localtime->mday < 10) { $the_time .= "0" }
- $the_time .= localtime->mday;
+ my ($sec, $min, $hour, $day, $month, $year) = localtime(time());
+ $the_time .= $year + 1900;
+ if ($month < 9) { $the_time .= "0" }
+ $the_time .= $month + 1;
+ if ($day < 10) { $the_time .= "0" }
+ $the_time .= $day;
$the_time .= "_";
- if (localtime->hour < 10) { $the_time .= "0" }
- $the_time .= localtime->hour;
- if (localtime->min < 10) { $the_time .= "0" }
- $the_time .= localtime->min;
- if (localtime->sec < 10) { $the_time .= "0" }
- $the_time .= localtime->sec;
+ if ($hour < 10) { $the_time .= "0" }
+ $the_time .= $hour;
+ if ($min < 10) { $the_time .= "0" }
+ $the_time .= $min;
+ if ($sec < 10) { $the_time .= "0" }
+ $the_time .= $sec;
}
sub get_tape_info() {