From ca96e227e1dc55c3a4f7b930e6d766f048efb2b8 Mon Sep 17 00:00:00 2001
From: Mark Allen <mrallen1@yahoo.com>
Date: Wed, 25 May 2016 21:29:12 -0500
Subject: Do not assume writes to list_add/remove succeed

If the otp_builds or otp_installations files in $KERL_BASE_DIR
are unwritable kerl will falsely report a successful action. Now exit
from the script with a return code of 1.
---
 kerl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/kerl b/kerl
index 5dc0f95..b9c3afc 100755
--- a/kerl
+++ b/kerl
@@ -889,16 +889,16 @@ list_add()
                 return 1
             fi
         done < "$KERL_BASE_DIR/otp_$1"
-        echo "$2" >> "$KERL_BASE_DIR/otp_$1"
+        echo "$2" >> "$KERL_BASE_DIR/otp_$1" || exit 1
     else
-        echo "$2" > "$KERL_BASE_DIR/otp_$1"
+        echo "$2" > "$KERL_BASE_DIR/otp_$1" || exit 1
     fi
 }
 
 list_remove()
 {
     if [ -f "$KERL_BASE_DIR/otp_$1" ]; then
-        sed $SED_OPT -i -e "/^.*$2$/d" "$KERL_BASE_DIR/otp_$1"
+        sed $SED_OPT -i -e "/^.*$2$/d" "$KERL_BASE_DIR/otp_$1" || exit 1
     fi
 }
 
-- 
cgit v1.2.3