Changeset 634

Show
Ignore:
Timestamp:
11/14/07 19:58:35 (1 year ago)
Author:
ykerherve
Message:

_write_and_read return undef on error which generates
unwanted warning in the client.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/api/perl/lib/Cache/Memcached.pm

    r601 r634  
    422422    } 
    423423 
    424     return $res eq "DELETED\r\n"; 
     424    return defined $res && $res eq "DELETED\r\n"; 
    425425} 
    426426*remove = \&delete; 
    …… 
    492492    } 
    493493 
    494     return $res eq "STORED\r\n"; 
     494    return defined $res && $res eq "STORED\r\n"; 
    495495} 
    496496 
    …… 
    523523    } 
    524524 
    525     return undef unless $res =~ /^(\d+)/; 
     525    return undef unless defined $res && $res =~ /^(\d+)/; 
    526526    return $1; 
    527527} 
    …… 
    895895        my $sock = $self->sock_to_host($host); 
    896896        my $ok = _write_and_read($self, $sock, "stats reset"); 
    897         unless ($ok eq "RESET\r\n") { 
     897        unless (defined $ok && $ok eq "RESET\r\n") { 
    898898            _dead_sock($sock); 
    899899        }