The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# This script rewrites the setting of the default value of $XML_parser
# in XPathScript.pm. It is invoked by Makefile.PL as the PM_FILTER.
while(<STDIN>) {
          s/^(\$XML_parser = )'.*?';$/$1'$ARGV[0]';/;
          print;
}