Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Hack for RT 55729 until BSD can provide a proper fix. This patch shou…

…ld be reverted once the PR is resolved.


http://www.freebsd.org/cgi/query-pr.cgi?pr=157469

Update .gitignore to ignore more temporary files.
  • Loading branch information...
commit ce7f95ed60c2b5711edc3f5f7b9e6c7e75143701 1 parent ade7d56
@toddr toddr authored
Showing with 32 additions and 17 deletions.
  1. +18 −15 .gitignore
  2. +7 −1 t/decl.t
  3. +7 −1 t/parament.t
View
33 .gitignore
@@ -1,15 +1,18 @@
-blib*
-Makefile
-Makefile.old
-Build
-_build*
-pm_to_blib*
-*.tar.gz
-.lwpcookies
-XML-Parser-*
-cover_db
-Build.bat
-*.tmp
-
-META.yml
-MYMETA.yml
+blib*
+Makefile
+Makefile.old
+Build
+_build*
+pm_to_blib*
+*.tar.gz
+.lwpcookies
+XML-Parser-*
+cover_db
+Build.bat
+*.tmp
+*.orig
+META.yml
+MYMETA.yml
+Expat/Expat.bs
+Expat/Expat.c
+Expat/Expat.o
View
8 t/decl.t
@@ -69,7 +69,13 @@ my $parser = new XML::Parser(ErrorContext => 2,
ParseParamEnt => 1,
Handlers => {Entity => \&enth1});
-$parser->parse($docstr);
+eval { $parser->parse($docstr) };
+if($@ && $^O =~ m/freebsd/i) {
+ for(2..30) {
+ print "not ok $_ - Cannot test due to Free BSD PR 157469 # TODO: Waiting for Free BSD fix in expat\n";
+ }
+ exit;
+}
sub eleh {
my ($p, $name, $model) = @_;
View
8 t/parament.t
@@ -82,7 +82,13 @@ $p = new XML::Parser(ParseParamEnt => 1,
}
);
-$p->parse($doc);
+eval { $p->parse($doc) };
+if($@ && $^O =~ m/freebsd/i) {
+ for(2..12) {
+ print "not ok $_ - Cannot test due to Free BSD PR 157469 # TODO: Waiting for Free BSD fix in expat\n";
+ }
+ exit;
+}
print "not " unless $gotmore;
print "ok 6\n";
Please sign in to comment.
Something went wrong with that request. Please try again.