Radix cross Linux

     5         kx #!/bin/sh
     5         kx 
     5         kx # arg 1:  the new package version
     5         kx pre_install() {
     5         kx   /bin/true
     5         kx }
     5         kx 
     5         kx # arg 1:  the new package version
     5         kx post_install() {
     5         kx   if ! grep "DBI|" @PERL_LOCAL_POD@ 1> /dev/null 2> /dev/null ; then
     5         kx   cat << EOF >> @PERL_LOCAL_POD@
     5         kx =head2 Sun Jan 16 16:17:15 2022: C<Module> L<Error|Error>
     5         kx 
     5         kx =over 4
     5         kx 
     5         kx =item *
     5         kx 
     5         kx C<installed into: /usr/share/perl5/vendor_perl>
     5         kx 
     5         kx =item *
     5         kx 
     5         kx C<LINKTYPE: dynamic>
     5         kx 
     5         kx =item *
     5         kx 
     5         kx C<VERSION: 0.17029>
     5         kx 
     5         kx =item *
     5         kx 
     5         kx C<EXE_FILES: >
     5         kx 
     5         kx =back
     5         kx 
     5         kx EOF
     5         kx   fi
     5         kx }
     5         kx 
     5         kx # arg 1:  the new package version
     5         kx # arg 2:  the old package version
     5         kx pre_update() {
     5         kx   /bin/true
     5         kx }
     5         kx 
     5         kx # arg 1:  the new package version
     5         kx # arg 2:  the old package version
     5         kx post_update() {
     5         kx   post_install
     5         kx }
     5         kx 
     5         kx # arg 1:  the old package version
     5         kx pre_remove() {
     5         kx   /bin/true
     5         kx }
     5         kx 
     5         kx # arg 1:  the old package version
     5         kx post_remove() {
     5         kx   /bin/true
     5         kx }
     5         kx 
     5         kx 
     5         kx operation=$1
     5         kx shift
     5         kx 
     5         kx $operation $*