Allow redis background saves

Don't die if redis is already saving, simply wait a bit and retry.
dgl · Apr 23, 2014 · 85667a4 · 85667a4
1 parent 1b4c494
commit 85667a4
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/lib/WWW/CPANGrep/Index.pm b/lib/WWW/CPANGrep/Index.pm
@@ -75,7 +75,18 @@ sub index {
     my $redis_conn = (tied %{$self->redis})->{_conn};
     eval { $redis_conn->rename("cpangrep:slabs", "cpangrep:slabs-old") };
     $redis_conn->rename("new-index", "cpangrep:slabs");
-    $redis_conn->save;
+    eval {
+      $redis_conn->save;
+      1;
+    } or do {
+      my $err = $@;
+      if($err !~ /Background save is already in progress/) {
+        die $err;
+      }
+      warn $err;
+      sleep 5;
+      $redis_conn->save;
+    };
 
     for my $slab(@{$self->redis->{"cpangrep:slabs-old"}}) {
       unlink $self->slab_dir . "/" . $slab;