[Bug 3678] Use of uninitialized value in 2.64

[bu...@bugzilla.spamassassin.org]

http://bugzilla.spamassassin.org/show_bug.cgi?id=3678





------- Additional Comments From sidney@sidney.com  2004-08-11 08:06 -------
What version perl are you running?

Can you please attach the mail that caused this? Upload it as an attachment to
this bug report using the Create a New Attachment link on the Bugzilla web page
for this bug report. Do not paste it into a comment box and do not email it.

As far as I can tell the code is the same in the current svn for 3.0, but it
also seems to be impossible to get these error messages unless older perl
versions than I'm running behave differently.

What do you get when you run the following perl file?

Perl experts, would $1 be undefined in any version of perl in the following?

 --------------

my $val = 'foo; boundary=""';
if ($val =~ s/boundary=[\"\'](.*?)[\"\']/ /ig) {
  my $boundary = $1;
  $boundary =~ s/[a-fA-F0-9]/H/gs;
  print "\nboundary is '" . $boundary . "'\n";
}

1

 ------------------




------- You are receiving this mail because: -------
You are the assignee for the bug, or are watching the assignee.