This is perl, built for sun4-solaris. The script worked fine under
Perl 5.0 but I have to use 5.004_04 because 5.0 has reserve word
problems with another perl script (Majorcool.pl) I need.
majordomo@dukman> /usr/local/packages/perl5.004_04/bin/perl -c
/(^|([^\\"]|\\.)+)"([^\\"]|\\.|$)*"?/: regexp *+ operand could be empty
at majordomo.pl line 519.
The offending line...
# Nuke anything within quotes. Placate Emacs -------v
1 while $temp =~ s/(^|([^\\\"]|\\.)+)\"([^\\\"]|\\.|$)*\"?/$1/g;
It seems to want to have the ) to placate Emacs. If I just remove the )
the file will compile
but the reg. expression really does the wrong thing and the mailer goes
For example, if an invalid address makes it onto the list instead of
the mail to the list owner it tries to send the bounce to the list. This
of course generates
another bounce and on and on.... Lots of bounce mail in a very short
period of time.
I'm not a big Perl hacker, I just got my first book this weekend.
I've tried commenting out the line and getting rid of the ) neither
Any help would be appreciated.
adr:;;One Oracle Drive;Nashua;New Hampshire;03062;
title:Principal Member of Technical Staff