| Subject: | Bug in Lib/Expat.pm when no expat.h |
If no expat.h is found the test case fails because the code
continues the run.
I believe the attach patch makes it pass and do what the docs say.
Regards, Arthur
Expat.pm.patch A ¹'ï¹'ï mBIN #Û --- lib/App/Info/Lib/Expat.pm.bak Sat Jun 8 17:15:24 2002
+++ lib/App/Info/Lib/Expat.pm Sat Jun 8 17:22:33 2002
@@ -93,6 +93,7 @@
"libexpat.a", "libexpat.la"];
$self->{libexpat} = $u->first_cat_dir($libs, @paths);
+
return $self;
}
@@ -138,8 +139,10 @@
return unless $self->{libexpat};
unless (exists $self->{version}) {
my $inc = $self->inc_dir
- or $self->error("Cannot get Expat version because file 'expat.h' " .
- "does not exist");
+ or ( $self->error("Cannot get Expat version because file 'expat.h' " .
+ "does not exist") && return);
+
+
my $header = $u->catfile($inc, 'expat.h');
my @regexen = ( qr/XML_MAJOR_VERSION\s+(\d+)$/,
qr/XML_MINOR_VERSION\s+(\d+)$/,