Update of /cvsroot/openinteract/SPOPS/SPOPS
In directory usw-pr-cvs1:/tmp/cvs-serv17465
Modified Files:
Tie.pm
Log Message:
don't try and fetch anything if given an empty key
Index: Tie.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS/Tie.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Tie.pm 2001/10/12 21:00:26 1.18
--- Tie.pm 2001/10/15 00:00:53 1.19
***************
*** 94,97 ****
--- 94,98 ----
sub FETCH {
my ( $self, $key ) = @_;
+ return unless ( $key );
my $cmp_key = lc $key;
DEBUG() && _w( 3, " tie: Trying to retrieve value for ($key)\n" );
|
