6 lines
228 B
Text
6 lines
228 B
Text
|
#!/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', '');
|