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; } #