[perl-cache commit] r565 - test for defined, not truth, so that key '0' works

[codesite...@google.com]

Author: swa...@pobox.com
Date: Wed May 13 16:53:38 2009
New Revision: 565

Modified:
trunk/lib/Cache/FileBackend.pm

Log:
test for defined, not truth, so that key '0' works

Modified: trunk/lib/Cache/FileBackend.pm
==============================================================================
--- trunk/lib/Cache/FileBackend.pm (original)
+++ trunk/lib/Cache/FileBackend.pm Wed May 13 16:53:38 2009
@@ -76,8 +76,8 @@

foreach my $unique_key ( $self->_get_unique_keys( $p_namespace ) )
{
- my $key = $self->_get_key_for_unique_key( $p_namespace, $unique_key )
or
- next;
+ my $key = $self->_get_key_for_unique_key( $p_namespace, $unique_key );
+ next if !defined($key);

push( @keys, $key );
}