1 2 3 4 5
#!/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', '');