Permalink
Browse files

Merge branch 'master' of github.com:rjray/rpc-xml

  • Loading branch information...
2 parents 20994f8 + 59fc7b0 commit 64e3409f95bfdaedf533b895c828cc38f0d7502e @rjray committed Jul 29, 2012
Showing with 9 additions and 5 deletions.
  1. +9 −5 t/21_xml_libxml.t
View
@@ -159,7 +159,10 @@ isa_ok($new_b64, 'RPC::XML::base64', 'First args value');
is($new_b64->as_string, $base64->as_string(),
'Push-parse value comparison');
-my $bad_entities = <<EOX;
+SKIP: {
+ skip "/etc/passwd is not an issue on windows.", 1 if $^O eq 'MSWin32';
+
+ my $bad_entities = <<EOX;
<?xml version="1.0" encoding="us-ascii"?>
<!DOCTYPE foo [
<!ENTITY foo SYSTEM "file:///etc/passwd">
@@ -173,10 +176,11 @@ my $bad_entities = <<EOX;
</params>
</methodCall>
EOX
-$pp = RPC::XML::Parser::XMLLibXML->new->parse();
-$ret = $pp->parse($bad_entities);
-my $args = $ret->args;
-is($args->[0]->value, 'Entity test: ', 'Bad entities ignored');
+ $pp = RPC::XML::Parser::XMLLibXML->new->parse();
+ $ret = $pp->parse($bad_entities);
+ my $args = $ret->args;
+ is($args->[0]->value, 'Entity test: ', 'Bad entities ignored');
+}
# Now test passing of various references to the parser
$p = RPC::XML::Parser::XMLLibXML->new();

0 comments on commit 64e3409

Please sign in to comment.