Peter Prymmer <[EMAIL PROTECTED]> wrote:
|
| Charles Bailey wrote:
|
| > This remains a problem, I agree. It's actually a bit frustrating because we've
| > gone out of our way to include portable ways to do things in the Perl
| > distribution, and many of the problems arise because someone didn't take the
| > time to use them. As we find better ways to absorb these sorts of one-off
| > Unixisms, I'm all for 'em. Failing that, I'm for making the modules more
| > portable. In some spots we're stuck (e.g. fork-dependent stuff), so we'll
| > have to do things VMSishly in parallel.
|
| with Cwd::cwd(); and the new File::Spec modules that Barry has worked so
| hard on being excellent examples of things put into the distribution.
|
| Has anyone had a chance to test Barry's code?
I've revised several chunks of it and updated the test suite to handle the
new code correctly. It seems to do the basic job right.
| Rhetorical question: If I am on a Mac and want to convert a
| C:\Windows\File\Spec.txt to a C:[VMS.FILE]SPEC.TXT how do I do that with
| File::Spec? Is it even possible?
It should be possible, though there isn't a nicely packaged way to do
the conversion (that's probably easy, too). Something like (untested)
my($dev,$dir,$fil) = File::Spec::Mac->splitpath($mac_name);
my @dirs = File::Spec::Mac->splitdirs($dir);
my $vms_name = File::Spec::VMS->catpath($dev,
File::Spec::VMS->catdirs(@dirs),
$fil);
should do the trick.
Regards,
Charles Bailey [EMAIL PROTECTED]
