From 0e7340bf6b421b698578a908fa67ca6f629d698c Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <shemminger@vyatta.com>
Date: Wed, 9 Nov 2011 08:13:45 -0800
Subject: Fix perlcritic warning about bareword file handle

dhcpv6-show-leases use 3 arg open and local file handle
---
 scripts/dhcpv6-client-show-leases.pl | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'scripts/dhcpv6-client-show-leases.pl')

diff --git a/scripts/dhcpv6-client-show-leases.pl b/scripts/dhcpv6-client-show-leases.pl
index 546668c..44be689 100644
--- a/scripts/dhcpv6-client-show-leases.pl
+++ b/scripts/dhcpv6-client-show-leases.pl
@@ -74,13 +74,11 @@ my %ghash = ();
 foreach my $lease_filename (@lease_files) {
     my @lines=();
 
-    if (!open(LEASE_FILE, "</var/lib/dhcp3/$lease_filename")) {
-	printf("Can't open lease file for reading:  $lease_filename\n");
-	exit 1;
-    }
+    open(my $f, '<', "/var/lib/dhcp3/$lease_filename")
+	or die "Can't open lease file for reading:  $lease_filename\n";
 
-    @lines = <LEASE_FILE>;
-    close(LEASE_FILE);
+    @lines = <$f>;
+    close $f;
     chomp @lines;
 
     my $level = 0;
-- 
cgit v1.2.3