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
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).