Report empty instead of external entity system id

Author: scop

lib/XML/Simple.pm

@@ -454,7 +454,7 @@ sub new_xml_parser {
   my($self) = @_;
 
   my $xp = XML::Parser->new(Style => 'Tree', @{$self->{opt}->{parseropts}});
-  $xp->setHandlers(ExternEnt => sub {return $_[2]});
+  $xp->setHandlers(ExternEnt => sub {return ''});
 
   return $xp;
 }

t/C_External_Entities.t

@@ -29,7 +29,7 @@ my $xml = qq(<?xml version="1.0"?>
 
 my $opt = XMLin($xml);
 isnt($opt->{'user'}, 'bad', 'External entity not retrieved');
-like($opt->{'user'}, qr/^file/, 'External entity left as URL');
+is_deeply($opt->{'user'}, {}, 'External entity left as empty');
 
 unlink($filename) if (-f $filename);
 exit(0);