From 5297bb8b8da965b66abd99891909e8f89f02f024 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Mon, 31 Aug 2009 09:08:49 -0700
Subject: [PATCH] Fix undefined variable warning

---
 Shorewall/Perl/Shorewall/Config.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 06045c650..6c330926d 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -689,10 +689,9 @@ sub cleanup() {
     #
     # Unlink temporary files
     #
-    unlink $tempfile, $tempfile = undef             if $tempfile;
-    unlink $scriptfilename, $scriptfilename = undef if $scriptfilename;
-    unlink $_ for @tempfiles;
-    @tempfiles = ();
+    unlink ( $tempfile ), $tempfile = undef             if $tempfile;
+    unlink ( $scriptfilename ), $scriptfilename = undef if $scriptfilename;
+    unlink ( @tempfiles ), @tempfiles = ()              if @tempfiles;
 }
 
 #