use strict;
require Win32;
use ExtUtils::MakeMaker;
my $ans = prompt('Do you want to alter ParserDetails.ini?', 'yes');
my $perl = $^X;
$perl = Win32::GetShortPathName($perl) if $perl =~ / /;
if ($ans =~ /^y/i) {
 my @args = ($perl, '-MXML::SAX', '-e',
   q{"XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()"});
 print "@args\n";
 system(@args) == 0
   or die "system @args failed: $?";
}