/[Redis.pre-github]/lib/Redis.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Redis.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by dpavlin, Sat Mar 21 21:40:53 2009 UTC revision 4 by dpavlin, Sat Mar 21 21:53:15 2009 UTC
# Line 101  sub get { Line 101  sub get {
101          my ( $self, $k ) = @_;          my ( $self, $k ) = @_;
102          print $sock "GET $k\r\n";          print $sock "GET $k\r\n";
103          my $len = <$sock>;          my $len = <$sock>;
104    #       warn "# len: ",dump($len);
105            return undef if $len eq "nil\r\n";
106          my $v;          my $v;
107          read($sock, $v, $len) || die $!;          read($sock, $v, $len) || die $!;
108    #       warn "# v: ",dump($v);
109            my $crlf;
110            read($sock, $crlf, 2); # skip cr/lf
111          return $v;          return $v;
112  }  }
113    
114    
115    
116  =head1 AUTHOR  =head1 AUTHOR
117    
118  Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>

Legend:
Removed from v.3  
changed lines
  Added in v.4

  ViewVC Help
Powered by ViewVC 1.1.26