[PATCH] extfs scripts fixes
Adam Byrtek 'alpha'
alpha at student.uci.agh.edu.pl
Mon Dec 9 16:08:10 UTC 2002
On Mon, Dec 09, 2002 at 12:55:13AM -0500, Pavel Roskin wrote:
> Thank you. It will take a lot of time to retest, and I'll be busy next
> week, so please be patient.
A little fix to apply after my earlier extfs-scripts-patch:
- perl's localtime returns month in 0-11 format, not 1-12 as somebody
assumes, so I've added +1 in some scripts to fix this
- perl warning mode disabled for uzip
--
_.|._ |_ _. : Adam Byrtek, alpha@(irc.pl|debian.org)
(_|||_)| |(_| : gg 1802819, pgp 0xB25952C0
| : jid alpha.jabberpl.org
-------------- next part --------------
diff -u extfs.alpha/apt extfs.alpha2/apt
--- extfs.alpha/apt 2002-12-08 18:07:39.000000000 +0100
+++ extfs.alpha2/apt 2002-12-09 17:01:30.000000000 +0100
@@ -11,7 +11,7 @@
my ($dt) = @_;
my (@time);
@time = localtime($dt);
- $bt = sprintf "%02d-%02d-%02d %02d:%02d", $time[4], $time[3], $time[5]%100, $time[2], $time[1];
+ $bt = sprintf "%02d-%02d-%02d %02d:%02d", $time[4]+1, $time[3], $time[5]%100, $time[2], $time[1];
return $bt;
}
diff -u extfs.alpha/deba extfs.alpha2/deba
--- extfs.alpha/deba 2002-12-08 18:02:02.000000000 +0100
+++ extfs.alpha2/deba 2002-12-09 17:01:50.000000000 +0100
@@ -11,7 +11,7 @@
my ($dt) = @_;
my (@time);
@time = localtime($dt);
- $bt = sprintf "%02d-%02d-%02d %02d:%02d", $time[4], $time[3], $time[5]%100, $time[2], $time[1];
+ $bt = sprintf "%02d-%02d-%02d %02d:%02d", $time[4]+1, $time[3], $time[5]%100, $time[2], $time[1];
return $bt;
}
diff -u extfs.alpha/debd extfs.alpha2/debd
--- extfs.alpha/debd 2002-12-08 18:10:36.000000000 +0100
+++ extfs.alpha2/debd 2002-12-09 17:01:57.000000000 +0100
@@ -11,7 +11,7 @@
my ($dt) = @_;
my (@time);
@time = localtime($dt);
- $bt = sprintf "%02d-%02d-%02d %02d:%02d", $time[4], $time[3], $time[5]%100, $time[2], $time[1];
+ $bt = sprintf "%02d-%02d-%02d %02d:%02d", $time[4]+1, $time[3], $time[5]%100, $time[2], $time[1];
return $bt;
}
diff -u extfs.alpha/dpkg extfs.alpha2/dpkg
--- extfs.alpha/dpkg 2002-12-08 18:13:43.000000000 +0100
+++ extfs.alpha2/dpkg 2002-12-09 17:02:01.000000000 +0100
@@ -11,7 +11,7 @@
my ($dt) = @_;
my (@time);
@time = localtime($dt);
- $bt = sprintf "%02d-%02d-%02d %02d:%02d", $time[4], $time[3], $time[5]%100, $time[2], $time[1];
+ $bt = sprintf "%02d-%02d-%02d %02d:%02d", $time[4]+1, $time[3], $time[5]%100, $time[2], $time[1];
return $bt;
}
diff -u extfs.alpha/uzip.in extfs.alpha2/uzip.in
--- extfs.alpha/uzip.in 2002-12-08 17:40:40.000000000 +0100
+++ extfs.alpha2/uzip.in 2002-12-09 17:02:37.000000000 +0100
@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#! /usr/bin/perl
#
# zip file archive Virtual File System for Midnight Commander
# Version 1.4.0 (2001-08-07).
More information about the mc-devel
mailing list