From 5dbffb96c275910a893b03f59ba9490a58a15fa4 Mon Sep 17 00:00:00 2001
From: Pavel Roskin <proski@gnu.org>
Date: Fri, 8 Nov 2002 18:06:14 +0000
Subject: [PATCH] * vfs/extfs/a: Set environment to force date and time format
 suitable for VFS.  Fix support for long filenames with spaces.

---
 ChangeLog   | 5 +++++
 vfs/extfs/a | 5 ++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 60ac981b8..6ac39c214 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-08  Pavel Roskin  <proski@gnu.org>
+
+	* vfs/extfs/a: Set environment to force date and time format
+	suitable for VFS.  Fix support for long filenames with spaces.
+
 2002-11-07  Andrew V. Samoilov  <sav@bcs.zp.ua>
 
 	* syntax/ada95.syntax: Highlight "then" and "else".
diff --git a/vfs/extfs/a b/vfs/extfs/a
index f9847d22b..bfd684c52 100755
--- a/vfs/extfs/a
+++ b/vfs/extfs/a
@@ -17,6 +17,9 @@ $mcopy = "mcopy -noQ";
 $0 =~ s|.*/||;
 $disk = $0;
 
+$ENV{MTOOLS_DATE_STRING} = "mm-dd-yyyy";
+$ENV{MTOOLS_TWENTY_FOUR_HOUR_CLOCK} = "1";
+
 SWITCH: for ( $ARGV[0] ) {
   /list/ && do {
     @dirs = get_dirs("");
@@ -75,7 +78,7 @@ sub get_dirs {
     $_ = substr($_,12);
     s/^[ ]+//;
 
-    ($size,$date,$time,$longname) = split(/[ \t]+/);
+    ($size,$date,$time,$longname) = split(/[ \t]+/, $_, 4);
 
     @lst = split(/([:ap])/, $time);
     $lst[0] += 12 if ($lst[3] eq "p");