From 1954901f4345cc0e2e0503019ff60eee1e2faaf8 Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Mon, 23 Mar 2009 15:24:12 -0700
Subject: Fix bare file handle warning

---
 scripts/system/vyatta_update_logrotate.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'scripts/system')

diff --git a/scripts/system/vyatta_update_logrotate.pl b/scripts/system/vyatta_update_logrotate.pl
index abc4a25a..d7649496 100755
--- a/scripts/system/vyatta_update_logrotate.pl
+++ b/scripts/system/vyatta_update_logrotate.pl
@@ -25,9 +25,10 @@ if (!($files =~ m/^\d+$/) || !($size =~ m/^\d+$/)) {
 # (the detection mechanism in XORP doesn't work anyway)
 unlink $log_conf;
 
-open(OUT, ">>$log_conf") or exit 3;
+open my $out, '>>', $log_conf
+    or exit 3;
 if ($set == 1) {
-  print OUT <<EOF;
+  print $out <<EOF;
 $log_file {
   missingok
   notifempty
@@ -39,7 +40,7 @@ $log_file {
 }
 EOF
 }
-close OUT;
+close $out;
 
 sleep 1;
 if (system("/usr/sbin/invoke-rc.d sysklogd restart")) {
-- 
cgit v1.2.3