/[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 23 by dpavlin, Sun Mar 22 13:09:15 2009 UTC revision 24 by dpavlin, Sun Mar 22 13:18:11 2009 UTC
# Line 97  sub _sock_send_ok { Line 97  sub _sock_send_ok {
97  }  }
98    
99  sub _sock_send_bulk {  sub _sock_send_bulk {
100          my ( $self, $command, $key, $value ) = @_;          my $self = shift;
101          print $sock "$command $key " . length($value) . "\r\n$value\r\n";          my $value = pop;
102            print $sock join(' ',@_) . ' ' . length($value) . "\r\n$value\r\n";
103          _sock_ok();          _sock_ok();
104  }  }
105    
# Line 334  sub ltrim { Line 335  sub ltrim {
335    
336  sub lindex {  sub lindex {
337          my ( $self, $key, $index ) = @_;          my ( $self, $key, $index ) = @_;
338          $self->_sock_result_bulk( 'lindex', $key, $index );          $self->_sock_result_bulk( 'LINDEX', $key, $index );
339  }  }
340    
341    =head2 lset
342    
343      $r->lset( $key, $index, $value );
344    
345    =cut
346    
347    sub lset {
348            my ( $self, $key, $index, $value ) = @_;
349            $self->_sock_send_bulk( 'LSET', $key, $index, $value );
350    }
351    
352  =head1 AUTHOR  =head1 AUTHOR
353    

Legend:
Removed from v.23  
changed lines
  Added in v.24

  ViewVC Help
Powered by ViewVC 1.1.26