From 8e88cba912963a3aa5338b67cb1ef98080f71bf7 Mon Sep 17 00:00:00 2001 From: Stephen Gran Date: Thu, 24 Mar 2011 09:55:08 +0000 Subject: [PATCH] new perl complains about rmdir of cwd Signed-off-by: Stephen Gran --- dsa-nagios-checks/checks/dsa-check-raid-aacraid | 4 ++++ 1 file changed, 4 insertions(+) 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}; -- 2.20.1