[Mimedefang] Perl module update crashes MIMEDefang

[Jeff Rife]

I've had this happen twice now, so you'd think I'd learn...

After updating some modules using CPAN, I later edited my filter to 
make a small change to a regular expression.  "mimedefang.pl -test" 
came out fine.

So, I then ran "md-mx-ctrl reread", and the following immediately 
showed up in my mail log:

May  5 18:01:53 saber À^F6^I\210;6^Ing.pl[18542]: Re-initialized embedded Perl interpreter
May  5 18:01:53 saber À^F6^I\210;6^Ing.pl[18542]: Killing idle slave 2 (pid 24376): Forcing reread of filter rules
May  5 18:01:53 saber À^F6^I\210;6^Ing.pl[18542]: Killing idle slave 0 (pid 24409): Forcing reread of filter rules
May  5 18:01:53 saber À^F6^I\210;6^Ing.pl[18542]: Reap: Killed slave 2 (pid 24376) exited normally with status 0
May  5 18:01:53 saber À^F6^I\210;6^Ing.pl[18542]: Slave 2 resource usage: req=256, scans=18, user=90.073, sys=1.483, nswap=0, majflt=2954, minflt=22425, maxrss=0, bi=0, bo=0
May  5 18:01:53 saber À^F6^I\210;6^Ing.pl[18542]: Reap: Killed slave 0 (pid 24409) exited normally with status 0
May  5 18:01:53 saber À^F6^I\210;6^Ing.pl[18542]: Slave 0 resource usage: req=0, scans=0, user=0.000, sys=0.014, nswap=0, majflt=27, minflt=380, maxrss=0, bi=0, bo=0
May  5 18:01:56 saber À^F6^I\210;6^Ing.pl[18542]: Starting slave 0 (pid 27022) (1 running): Bringing slaves up to minSlaves (2)
May  5 18:01:56 saber À^F6^I\210;6^Ing.pl[18542]: Slave 0 stderr: Undefined subroutine &main::do_main_loop called at /usr/local/bin/mimedefang.pl line 60.

As far as I can tell, if you pull the rug out from under MD by updating 
one of the Perl modules it uses (either directly or indirectly) *and* 
you use embedded Perl, things get wonky without a full restart.

This has happened on two different machines (both running different 
versions of MD and base Perl), but the sequence of events has been 
otherwise identical.


--
Jeff Rife |  
          | 
http://www.nabs.net/Cartoons/OverTheHedge/CDChristmasList.jpg