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 (executable)
--- 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};