• Files
• Commits
• Log
• Graph
• Stats

package Local::XMLSimple;

# patched to add single-apostrophe to escape_value()

use parent 'XML::Simple';

sub escape_value {
  my($self, $data) = @_; # warn $data;
 
  return '' unless(defined($data));
 
  $data =~ s/&/&/sg;
  $data =~ s/</&lt;/sg;
  $data =~ s/>/&gt;/sg;
  $data =~ s/"/&quot;/sg;
  # added single-apostrophe:
  $data =~ s/'/&apos;/sg; # warn $data; # warn $level;
 
  my $level = $self->{opt}->{numericescape} or return $data;
 
  return $self->numeric_escape($data, $level);
}

1;