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
majordomo.pl
/(^|([^\\"]|\\.)+)"([^\\"]|\\.|$)*"?/: 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
nuts.
For example, if an invalid address makes it onto the list instead of
just bouncing
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.
(Learning Perl)
I've tried commenting out the line and getting rid of the ) neither
thing fixed
the problem.
Any help would be appreciated.
Thanks!
--
;-Chuck
begin:vcard
n:Freiwald;Chuck
tel;fax:603.897.3270
tel;work:603.897.3072
x-mozilla-html:FALSE
org:Oracle Corporation
adr:;;One Oracle Drive;Nashua;New Hampshire;03062;
version:2.1
email;internet:cfreiwal@us.oracle.com
title:Principal Member of Technical Staff
fn:Chuck Freiwald
end:vcard
Follow-Ups:
|
