mhonarc

Hi,
        I posted a mail about mhonarc giving me a 
Bus Error recently. Well after a lot of effort I discovered
the problem.
Here is a snippet of the o/p from the debugger.
The problem was with newgetopt.pl (v1.13). IF 
MHonArc was supplied with a command line switch, 
like -add ,NGetOpt went into a loop and returned a 
Bus Error.

main::NGetOpt(/appli/perl5/lib/newgetopt.pl:101):
101:        print STDERR "NGetOpt 1.13 -- called from $pkg\n" if $debug;
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:105):
105:        if ( $optionlist[0] =~ /^\W+$/ ) {
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:114):
114:        %opctl = ();
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:115):
115:        foreach $opt ( @optionlist ) {
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:116):
116:            $opt =~ tr/A-Z/a-z/ if $ignorecase;
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:117):
117:            if ( $opt !~ /^(\w*)([=:][infse](_at_)?)?$/ ) {
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:122):
122:            $opctl{$1} = defined $2 ? $2 : "";
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:116):
116:            $opt =~ tr/A-Z/a-z/ if $ignorecase;
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:117):
117:            if ( $opt !~ /^(\w*)([=:][infse](_at_)?)?$/ ) {
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:122):
122:            $opctl{$1} = defined $2 ? $2 : "";
  DB<1> 
main::NGetOpt(/appli/perl5/lib/newgetopt.pl:116):
116:            $opt =~ tr/A-Z/a-z/ if $ignorecase;
  DB<1> 

Diarmuid Collins