mirrors/mc
1
0
Fork 0
mirror of https://github.com/MidnightCommander/mc synced 2025-01-08 20:41:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

* extfs/mailfs: Try using UnixDate() from Date::Manip if it's

Browse Source 
available.  Warning fix.
This commit is contained in:
Pavel Roskin 2002-12-11 19:10:05 +00:00
parent 848835d43b
commit 184ae978c0
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
vfs/ChangeLog
View File

@ -1,3 +1,8 @@
2002-12-11 Pavel Roskin <proski@gnu.org>
* extfs/mailfs: Try using UnixDate() from Date::Manip if it's
available. Warning fix.
2002-12-11 Andrew V. Samoilov <sav@bcs.zp.ua>
* extfs/patchfs: Use quotemeta() before giving filename to

12
vfs/extfs/mailfs
View File

@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/bin/perl -w
# MC extfs for (possibly compressed) Berkeley style mailbox files
# Peter Daum <gator@cs.tu-berlin.de> (Jan 1998, mc-4.1.24)
@ -8,7 +8,13 @@ $bzcat="bzip2 -dc"; # bunzip2 to stdout
$file="file"; # "file" command
$TZ='GMT'; # default timezone (for Date module)
if (eval "require Date::Parse") { # fancy date parsing available?
if (eval "require Date::Manip") {
import Date::Manip;
$parse_date=
sub {
return UnixDate($_[0], "%l"); # "ls -l" format
}
} elsif (eval "require Date::Parse") {
import Date::Parse;
$parse_date=
sub {
@ -73,11 +79,11 @@ sub mailfs_list {
while(1) {
$_=<IN>;
s/\r$//;
if (!defined($_)) { # EOF
print_dir_line;
exit 0;
}
s/\r$//;
if($blank && /^From /) { # Start of header
print_dir_line unless (!$msg_nr);
$msg_nr++;