Re: [MacPerl] Re: MacPerl and localtime(time-offset) problem

["Paul J. Schinder" <schinder@pjstoaster.pg.md.us>]

}pudge@pobox.com (Chris Nandor) writes:
}
}What was the exact test case that failed? (You can send it off-line to me, I
}guess).

The original Usenet post used simply localtime(time-1), which failed.  But

$time = time;
$time--;
localtime($time);

works.


}
}>Oh, and CGI.pm dosen't seem to be in lib/ ... ?
}
}That was a deliberate choice, as I assumed that CGI.pm as shipped in 5.004
}wouldn't have worked on the Mac out of the box anyway, so I planned on getting
}Paul's version to include in later releases. I probably *won't* include
}CPAN.pm
}at all, unless somebody comes up with a pretty convincing port.

I just took a look at CGI.pm on my 5.00401 Sun and it seems like it's the
usual Lincoln Stein module, where you just flip a switch or at the
beginning to choose the OS. MacOS is one of the choices.  (Good thing, too,
because unless you're thinking of another Paul, I don't have a version.
But I *do* have a version of libwww-perl-5.11 ready to go, which now
"require 5.004".)

}
}>And the man pages are not all there.
}
}This was not deliberate (I know they aren't in the Help index yet, though).
}Which manpages are missing?
}
}>Sorry if you know all this, Matthias, but I am not sure what
}>you have/haven't included in this beta release.
}
}That's alright; I can't expect y'all to read my mind from the 2 lines or so of
}release notes I provided :-) At the moment, I'd appreciate any & all bug
}reports.

I haven't gone through all the standard lib files that I've found need to
be modified in the past yet (since I had to spend time dropping back from 8
to 7.6.1 this morning after 8 went unstable rather than getting the new
MacPerl in place), but I have looked at IO::File, and it needs to be fixed.
The protection for weird characters at the beginning of the path still
prepends ./ if there are any.  It needs to be changed to a simple
protection of whitespace, or simply commented out (line 168):

#       $file = './' . $file if $file =~ m{\A[^\\/\w]};
	$file = ':' . $file if $file =~ m{^\S};

Of course, this causes trouble if $file is an absolute and the top volume
starts with \S.  Not much can be done about that; you can try to detect it
($file =~ ^\S+[^:]*:.*), maybe, which will catch everything but a reference
to a bare top volume) and issue a croak or a warn, I guess.

}
}Matthias
}
}-----
}Matthias Neeracher   <neeri@iis.ee.ethz.ch>   http://www.iis.ee.ethz.ch/~neeri
} "This comment reminds me of the APL93 meeting where people declared APL to
}  be a thriving, growing language. It's like going to a wake where only the
}  next-of-kin don't seem to be aware that the guest of honor is actually
}  dead."  -- Richard J. Gaylord <gaylord-100993020849@mm-mac18.mse.uiuc.edu>
}

---
Paul J. Schinder
NASA Goddard Space Flight Center
Code 693, Greenbelt, MD 20771
schinder@pjstoaster.pg.md.us



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch