Re^2: encoding failure with XML::Twig

[chastevens]

I'm aware of the XML::Parser::Expat Encoding files, and the script works fine when run as a perl script. It's when I try to create an executable using pp that it fails. I tried to manually add the Encodings directory to my package and I still get the failures

This script reproduces the problem

use XML::Twig;

my $gPFile = "input_test.xml";

pretty_print();

exit(0);

######################
sub pretty_print {
######################
  print "Converting ".$gPFile." to pretty print file ".$gPFile.".pp\n"
+;

  open (TMP,">".$gPFile.".pp");

  my $ppml_twig = new XML::Twig(keep_encoding => 0);
  $ppml_twig->parsefile($gPFile);
  $ppml_twig->set_pretty_print('indented');
  $ppml_twig->print( \*TMP);;
  close(TMP);
}

With this as an input file (input_test.xml)

<?xml version="1.0" encoding="windows-1252"?>
<JOB Label="input_test" >
    <SUBJOB>
    </SUBJOB>
</JOB>

I used the following command to create the executable:

pp -l libexpat.dll -a "C:/Strawberry/perl/site/lib/XML/Parser/Encoding
+s;lib/XML/Parser/Encodings" -o pp_only.exe pp_only.pl

I think this may be more of a pp issue than XML::Twig or Parser, but I'm not sure if XML::Twig can be configured to bypass the encoding.