Silence warning.
Patch by kareila.
diffs (14 lines):
diff -r b0b6954b7c51 -r 59a347441ae9 cgi-bin/DW/Pay.pm
--- a/cgi-bin/DW/Pay.pm Fri Dec 10 19:36:11 2010 +0800
+++ b/cgi-bin/DW/Pay.pm Fri Dec 10 19:40:16 2010 +0800
@@ -364,7 +364,9 @@ sub add_paid_time {
or return error( ERR_FATAL, "Invalid/not a user object." );
my $type = shift();
- my ($typeid) = grep { $LJ::CAP{$_}->{_account_type} eq $type } keys
%LJ::CAP;
+ my ( $typeid ) = grep { $LJ::CAP{$_}->{_account_type} &&
+ $LJ::CAP{$_}->{_account_type} eq $type }
+ keys %LJ::CAP;
return error( ERR_FATAL, 'Invalid type, no typeid found.' )
unless $typeid;
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
