Re: [MacPerl] Warning in File::Copy

[D.Thomas@vthrc.uq.edu.au (Danny Thomas)]

>MacPerl complains about
>
>#!usr/bin/perl -w
>use File::Copy;
>
>
>like this:
>
># Subroutine UNIVERSAL::isa redefined.
>File 'Diskus:MacPerl:lib:UNIVERSAL.pm'; Line 65535
># Subroutine UNIVERSAL::can redefined.
>File 'Diskus:MacPerl:lib:UNIVERSAL.pm'; Line 65535
I don't think this warning isn't specific to File::Copy


># Useless use of a constant in void context.
>File 'Diskus:MacPerl:lib:File:Copy.pm'; Line 42
># Useless use of a constant in void context.
>File 'Diskus:MacPerl:lib:File:Copy.pm'; Line 42
># Untitled syntax OK
>
>The offending line in Copy.pm is
>
>eval ($^O eq 'MacOS') ? <<'END_MAC' : <<'END_NOMAC';
>
>What's it trying to tell me?

it needs an extra set of parentheses:
  eval (($^O eq 'MacOS') ? <<'END_MAC' : <<'END_NOMAC');

cheers,
Danny Thomas



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