<HTML dir=ltr><HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face="Courier New" color=#000000 size=2>Oops. Hit a subtle bug in my code today because || considers '' true. </FONT></DIV>
<DIV><FONT face="Courier New" color=#000000 size=2></FONT> </DIV>
<DIV><FONT face="Courier New" color=#000000 size=2>Be careful out there... :)</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>j</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><BR><FONT face="Courier New" size=2>Index: Model/eWin/Transactions.pm<BR>===================================================================<BR>--- Model/eWin/Transactions.pm (revision 3467)<BR>+++ Model/eWin/Transactions.pm (working copy)<BR>@@ -108,7 +108,7 @@<BR> my $amount = $pms->{$tran_code};<BR> $sth->execute($property, $tran_code);<BR> my ($bucket) = $sth->fetchrow;<BR>- if (not defined $bucket || $bucket eq '???') {<BR>+ if (not defined $bucket or $bucket eq '???') {<BR> $self->_complain_via_email($property, $tran_code, $crs);<BR> $bucket = '???';<BR></FONT><FONT face="Courier New" size=2> }</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>Bug demonstrated in the debugger. :)</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2> DB<19> p $bucket<BR>???<BR></FONT></DIV>
<DIV><FONT face="Courier New" size=2> DB<20> x (not defined $bucket || $bucket eq '???')<BR>0 ''<BR></FONT></DIV>
<DIV><FONT face="Courier New" size=2> DB<21> x (not defined $bucket or $bucket eq '???')<BR>0 1</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV></BODY></HTML>