From: Stephen Gran <steve@lobefin.net>
Date: Thu, 24 Mar 2011 09:55:08 +0000 (+0000)
Subject: new perl complains about rmdir of cwd
X-Git-Url: https://wiki.adam-barratt.org.uk/gitweb/?a=commitdiff_plain;h=8e88cba912963a3aa5338b67cb1ef98080f71bf7;p=mirror%2Fdsa-nagios.git

new perl complains about rmdir of cwd

Signed-off-by: Stephen Gran <steve@lobefin.net>
---

diff --git a/dsa-nagios-checks/checks/dsa-check-raid-aacraid b/dsa-nagios-checks/checks/dsa-check-raid-aacraid
index 39d725a..3e7375b 100755
--- a/dsa-nagios-checks/checks/dsa-check-raid-aacraid
+++ b/dsa-nagios-checks/checks/dsa-check-raid-aacraid
@@ -139,5 +139,9 @@ while ($ctrl <= $numcontrollers) {
 if ( -e 'UcliEvt.log' ) {
 	unlink('UcliEvt.log') or die ("Cannot unlink UcliEvt.log: $!\n");
 }
+
+# Need to chdir out of tempdir in order to rm it in new perl
+chdir ('/') or die ("Cannot chdir /: $!\n");
+
 print "$EXITCODE: ", join(" --- ", @resultstr), "\n";
 exit $CODE{$EXITCODE};