Merge branch 'master' into smtp

[MQR.git] / lib / MQR / Redis.pm

diff --git a/lib/MQR/Redis.pm b/lib/MQR/Redis.pm
index 8835471..a593c7b 100644 (file)
--- a/lib/MQR/Redis.pm
+++ b/lib/MQR/Redis.pm
@@ -5,7 +5,11 @@ use Carp qw(confess);
 use Data::Dump qw(dump);
 
 sub redis {
-       my $redis = AnyEvent::Redis->new( host => $ENV{REDIS_HOST}, port => $ENV{REDIS_PORT}, on_error => sub { confess @_ } );
+       my $redis = AnyEvent::Redis->new(
+               host => $ENV{REDIS_HOST} || '127.0.0.1',
+               port => $ENV{REDIS_PORT} || 6379,
+               on_error => sub { confess @_ },
+       );
        $redis->ping;
        return $redis;
 }