>>Alex Yukhimets wrote:
>How about:
>$Mon=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mm-1] || bad_thing;
>?
I did, patch's below. I'd rather use an existing function if there was one
-- must be a software engineer in me (типа внутренний шпион).
--
Dimitri
--- deb.orig Sun Jul 6 22:32:52 1997
+++ deb Sun Jul 6 23:54:54 1997
@@ -34,8 +34,10 @@
{
while(<PIPEIN>)
{
-
($perm,$owgr,$size,$month,$day,$time,$year,$path,$arrow,$link,$link2)
+
($perm,$owgr,$size,$date,$time,$path,$arrow,$link,$link2)
= split;
+ ($year,$mon,$day) = split(/-/,$date);
+ $month =
("Gee","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")[$mon]
|| "Gee";
$owgr=~s!/! !;
next if $path=~m!/$!;
if($arrow eq 'link')
