2009-04-21 19:21:38 +02:00
|
|
|
#
|
|
|
|
# This script unregisters the SAX parser into the registry.
|
|
|
|
#
|
|
|
|
case "${ACTION}" in
|
|
|
|
pre)
|
2011-07-01 21:44:35 +02:00
|
|
|
LC_ALL=C perl -MXML::SAX -e \
|
2009-04-21 19:21:38 +02:00
|
|
|
"XML::SAX->remove_parser(q(XML::SAX::PurePerl))->save_parsers()" \
|
|
|
|
2>&1 >/dev/null
|
|
|
|
[ $? -eq 0 ] && echo "Removed parser from XML::SAX registry."
|
|
|
|
;;
|
|
|
|
post)
|
|
|
|
;;
|
|
|
|
esac
|