[Bug 429531] perl incorrect calculation

[bugzilla at redhat.com]

Please do not reply directly to this email. All additional
comments should be made in the comments box of this bug report.

Summary: perl incorrect calculation


https://bugzilla.redhat.com/show_bug.cgi?id=429531





------- Additional Comments From mal at gromco.com  2008-03-03 10:37 EST -------
>By the way, how come that the warning message talks about attachment.cgi when
you run perl on test2.pl.

It is copy/paste error of the first line. The file with the perl program is
attachment.cgi -
the one called "simplified test" attached to this report:
https://bugzilla.redhat.com/attachment.cgi?id=292362

The correct output, when I comment the line
# my($tmpbname)=$a=~m@<DATA>([^<>]*)@isg;
and uncomment the lines
        my $x=$a;
        my($tmpbname)=$x=~m@<DATA>([^<>]*)@isg;
should be this:
#perl -w attachment.cgi 
TBN=J1 A=<DATA>J1</END>
TBN=J2 A=<DATA>J2</END>
TBN=J3 A=<DATA>J3</END>
TBN=J4 A=<DATA>J4</END>
TBN=J5 A=<DATA>J5</END>

The difference is the TBN= one of strings J1,J2,J3,J4,J5
while with the another code it produces
TBN= value of undef







-- 
Configure bugmail: https://bugzilla.redhat.com/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are on the CC list for the bug, or are watching someone who is.