6 lines
150 B
Perl
6 lines
150 B
Perl
#!/usr/bin/perl
|
|
if('DEINSTALL' eq $ARGV[1]) {
|
|
eval "use XML::SAX;";
|
|
die $@ if $@;
|
|
XML::SAX->remove_parser(q(XML::SAX::ExpatXS))->save_parsers();
|
|
}
|