[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