From 79a1d20c69c84c73ce4147abc376609756ff0095 Mon Sep 17 00:00:00 2001
From: Thomas Schoebel-Theuer <tst@1und1.de>
Date: Mon, 14 Mar 2016 07:27:58 +0100
Subject: [PATCH] marsadm: fix annoying perl warning

---
 userspace/marsadm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/userspace/marsadm b/userspace/marsadm
index 6118f7a6..e944e9a0 100755
--- a/userspace/marsadm
+++ b/userspace/marsadm
@@ -2251,7 +2251,7 @@ sub primary_phase0 {
     check_todo($cmd, $res, "replay", 1, 0);
     # check that no logfile replay errors exist.
     my $replay_error = get_link("$mars/resource-$res/actual-$host/replay-code", 2);
-    if (int($replay_error) < 0) {
+    if (defined($replay_error) && $replay_error ne "" && int($replay_error) < 0) {
       lwarn "Logfile replay / recovery stopped with error code $replay_error.\n";
       ldie "Won't switch to avoid unnoticed data loss. You may however do a 'primary --force'.\n" unless $force;
     }