5 lines
228 B
Perl
5 lines
228 B
Perl
#!/usr/bin/perl
|
|
exit unless $ARGV[1]=~ /^(DE|POST\-)INSTALL$/;
|
|
$action=(($1 eq 'DE')?'remove':'add').'_parser';
|
|
eval "use XML::SAX;"; exit(-1) if $@;
|
|
XML::SAX->$action('XML::LibXML::SAX'.$_)->save_parsers() for('::Parser', '');
|