This suggestion below works. I don't get the errors
anymore, and I can install modules just fine. Thanks!!!
In the PPM.pm module (ver 1.1.2) you can make a few changes:
[ STEP 1 ]
In the sub "readPPDfile":
OLDLINE: my @parsed = @{ $parser->parse( $CONTENTS ) };
NEWLINES:
my @parsed;
eval {
@parsed = @{ $parser->parse( $CONTENTS ) };
}
return undef if ($@);
[ STEP 2 ]
In the sub "valid_URL_or_file":
OLDLINE: return 1 if ($File =~ m@^...*://@i && defined read_href("href"
=> $File, "request" => 'HEAD'));
NEWLINES:
if ($File =~ m@^...*://@i) {
my $CONTENTS = read_href("href" => $File, "request" =>
'GET');
if (defined $CONTENTS) {
$CONTENTS =~ s/&(?!\w+;)/&/go;
my $parser = new XML::Parser( Style => 'Objects', Pkg =>
'XML::PPD' );
my @parsed;
eval {
@parsed = @{ $parser->parse( $CONTENTS ) };
}
return 0 if ($@);
return 1;
}
}
--
-------- Aaron Rainwater ---------
| Only two things are infinite: |
| the universe & stupidity... |
| I'm not sure about the former. |
| ~ Albert Einstein |
----------------------------------
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
