X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=blobdiff_plain;f=lib%2FRedis.pm;h=14e8b8d5d57d483e48d766cdee510f187936bfe7;hp=6f3f3e62c112a3c27a8f6120c4eb2f3ad2e315bb;hb=ad8fa0dfa026af680d631c7e7c25179f4d3cda2b;hpb=8834a0a9ea5b9ac45bd020405ac7a2aea6ee3046

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 6f3f3e6..14e8b8d 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -475,6 +475,19 @@ sub sinterstore {
 	$self->_sock_send_ok( 'SINTERSTORE', @_ );
 }
 
+=head1 Multiple databases handling commands
+
+=head2 select
+
+  $r->select( 1 );
+
+=cut
+
+sub select {
+	my ($self,$index) = @_;
+	$self->_sock_send_ok( 'SELECT', $index );
+}
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>