Re: [MacPerl] startup disk

[johnw@imagelinc.com (John Whelan)]

>What I'd like to do is use a generic name of the disk, so the script
>could be run on any mac without having to modify the script to put in
>the startup disk's name.

my $hd = &MacPerl::MakePath((&MacPerl::Volumes)[0]);
$hd =~ s/:$//;  # Remove trailing colon

I beleive the first element of the array returned by &MacPerl::Volumes
will always be the startup disk. This should be portable  from one Mac
another.


------------------------------------------------
John Whelan                 ImageLinc Commercial
em: johnw@imagelinc.com     Internet Services
fax: 206.812.1033           ph: 206.812.2662



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