use exec rather than open with path

This avoids a number of future problems with bareword filehandles.
See Perl Best Practices (Chapter 10)

1 files changed, 5 insertions, 3 deletions

diff --git a/scripts/firewall/vyatta-show-firewall.pl b/scripts/firewall/vyatta-show-firewall.pl
index 4995a09..78e6b68 100755
--- a/scripts/firewall/vyatta-show-firewall.pl
+++ b/scripts/firewall/vyatta-show-firewall.pl
@@ -26,15 +26,17 @@ sub show_chain {
   my $chain = shift;
   my $fh = shift;
 
-  open(STATS, "/sbin/iptables -L $chain -vn |") or exit 1;
+  open my $iptables, "-|"
+      or exec "sudo", "/sbin/iptables", "-L", $chain, "-vn"
+      or exit 1;
   my @stats = ();
-  while (<STATS>) {
+  while (<$iptables>) {
     if (!/^\s*(\d+[KMG]?)\s+(\d+[KMG]?)\s/) {
       next;
     }
     push @stats, ($1, $2);
   }
-  close STATS;
+  close $iptables;
 
   print $fh "<opcommand name='firewallrules'><format type='row'>\n";
   my $config = new VyattaConfig;