on 07/23/2001 12:05 AM, KIMURA Takeshi at [EMAIL PROTECTED] wrote:
> Maybe we don't have to discuss this any more, since we have the 5.
> 6.1; well, just for the meantime.
possibly.. depends on how well I can get the alphas to work without causing
errors/dataloss for me :) I'm not quite yet ready to depend on it.
> Scott R. Godin wrote on 01.7.20 5:52 PM:
>>> Which version of IO::File do you have?
>>
>> I'm running 1.08 here under 520r4
>
> The one I have (1.0602) has a code like the following and taking
> care of MacPerl (MacOS.)
> Is there something like this in 1.08? If not, I guess it is not
> goot for MacPerl.
>
>> eval ($^O eq 'MacOS' ? <<'END_MAC' : <<'END_NOMAC');
>> sub _protect {
>> my($name) = @_;
>> MacPerl::MakeFSSpec($name);
>> }
>> END_MAC
>> sub _protect {
>> my($name) = @_;
>> "./$name";
>> }
>> END_NOMAC
no, that's completely missing from the one I have but this little "patch"
reslves that issue for earlier MacPerls and IO::File->VERSION 1.08
(from sub open)
$file = './' . $file if $file =~ m{\A[^\\/\w]} && $^O ne 'MacOS';
--
Scott R. Godin | e-mail : [EMAIL PROTECTED]
Laughing Dragon Services | web : http://www.webdragon.net/
