[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl-Modules] make never works on CPAN-shell.plx



At 17.12 +0000 1999.08.03, David Pennell wrote:
>CPAN-mac fetches the file I need, but it will always break on the gzopen
>stage. In most, but not all cases, dragging the file to "installme" will
>successfully install the module.

Did you try to up the MacPerl memory partition?

What version of CPAN.pm do you have?  My line 4207 is different than yours
(in CPAN 1.50):

sub TIEHANDLE {
  my($class,$file) = @_;
  my $ret;
  $class->debug("file[$file]");
  if ($CPAN::META->has_inst("Compress::Zlib")) {
    my $gz = Compress::Zlib::gzopen($file,"rb") or
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	die "Could not gzopen $file";
    $ret = bless {GZ => $gz}, $class;
  } else {
    my $pipe = "$CPAN::Config->{'gzip'} --decompress --stdout $file |";
    my $fh = FileHandle->new($pipe) or die "Could pipe[$pipe]: $!";
    binmode $fh;
    $ret = bless {FH => $fh}, $class;
  }
  $ret;
}

This would be more consistent with your error message, too.  You had:

>    my $gz = Compress::Zlib::gzopen($read, "rb")
>	or $CPAN::Frontend->mydie("Cannot gzopen $read: $!\n");
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Line 4207

But error messages go back to the starting line of the statement, which
would in this case be line 4206.  And your error message was:

># Could not gzopen :.cpan:sources:authors:id:GAAS:URI-1.04.tar.gz.
>File 'Internet 03:Programming:MacPerl Ÿ:site_perl:CPAN.pm'; Line 4207

But line 4207 says "Could not".  And there is no $!.

So I suggest, if adding more memory to MacPerl does not help, changing
CPAN.pm line 4207-8 to:

    my $gz = Compress::Zlib::gzopen($file,"rb") or
	die "Could not gzopen $file: $!";

Maybe the addition of the $! will tell us something.

Thanks,

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

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