On Thu, 2006-05-18 at 14:38 -0400, Phil Lobbes wrote:
> mod_perl-1.99_12-2
Ouch! Known bugs! Upgrade as soon as you can.
> my $sub_rec = $app->get_subscriber_rec($custid) if($custid);
> my $uid_int = $sub_rec->{'uid_int'} if($sub_rec);
This is the problem. Never do an assignment with a postfix "if"
statement. Changing these ifs to the normal style will fix the bug.
It's a long-standing Perl bug, which I avoid by simply not using postfix
if.
By the way, Perl::Critic has a test for this which can detect it in your
code and warn you about it.
- Perrin
