diff options
author | Eric Wong <e@80x24.org> | 2015-08-29 21:30:27 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-08-29 21:35:39 +0000 |
commit | 28ee19c32a1ecf8e22f30e8f9de860695f4fb30c (patch) | |
tree | 40a372c8d3c61d7e2917d0b4c981ae61df0e0397 /lib/PublicInbox/WWW.pm | |
parent | 26e69c85938c62774f20fd1861b67bcb01ba477d (diff) | |
download | public-inbox-28ee19c32a1ecf8e22f30e8f9de860695f4fb30c.tar.gz |
Perl does not currently optimize for this. ref (from p5p): http://mid.gmane.org/D5C27970-9176-4C7A-8B99-7D78360E67A2@pobox.com
Diffstat (limited to 'lib/PublicInbox/WWW.pm')
-rw-r--r-- | lib/PublicInbox/WWW.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm index 8058f3e1..a01271b1 100644 --- a/lib/PublicInbox/WWW.pm +++ b/lib/PublicInbox/WWW.pm @@ -249,7 +249,7 @@ sub do_redirect { sub ctx_get { my ($ctx, $key) = @_; my $val = $ctx->{$key}; - (defined $val && length $val) or die "BUG: bad ctx, $key unusable\n"; + (defined $val && $val ne '') or die "BUG: bad ctx, $key unusable\n"; $val; } |