use strict;
use ExtUtils::MakeMaker;
use LWP::Simple qw(getstore $ua is_success);
if ($ENV{HTTP_proxy_user} and $ENV{HTTP_proxy_pass}
    and $ENV{HTTP_proxy} =~ /^http:\/\/([^@]+)$/) {
       my $proxy ="http://$ENV{HTTP_proxy_user}:$ENV{HTTP_proxy_pass}\@" . $1;
       print "setting user/pass into proxy_env...\n";
       $ua->proxy(['http'], $proxy);
}
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: $?";
}

sub prompt { $_[1] };
