Re: [MacPerl] Re: CPAN-1.54

[Graham Barr <gbarr@pobox.com>]

On Mon, Mar 27, 2000 at 04:29:32PM -0500, Larry Moore wrote:
> At 17:54 -0500 26/03/2000, schinder@pobox.com wrote:
> >
> >That just looks like you didn't connect to the server.  Are you sure
> >ftp.perl.org was up?  I used libnet-1.0703 with CPAN-1.54 today with no
> >problems.
> >
> CPAN-1.54 working.  In CMD.pm and FTP.pm in libnet-1.0703,  commented out
> the lines that lead to error messages. Cc: gbarr - perhaps he'll explain
> the mystery.
> 
> 
> CMD.pm
>  if (scalar(@_))
>   {
> #   local $SIG{PIPE} = 'IGNORE';

Yes MacPerl does not like these. I suppose I could add unless $^O eq ...

> FTP.pm
> Not sure that I had to comment all of this - last line should be sufficient?
> maybe:
> # if(exists($arg{Firewall}) || Net::Config->requires_firewall($peer))
> #  {
> #   $fire = $arg{Firewall}
> #	|| $ENV{FTP_FIREWALL}
> #	|| $NetConfig{ftp_firewall}
> #	|| undef;

I don't know what MacPerl does not like here

>  #  if(defined $fire)
> #    {
> #     $peer = $fire;
> #     delete $arg{Port};
> #    }
> #  }
> definitely:
>  ${*$ftp}{'net_ftp_firewall'} = undef,
> #	if(defined $fire);

Graham.

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org