diff options
| author | John Southworth <john.southworth@vyatta.com> | 2011-03-08 16:53:20 -0600 |
|---|---|---|
| committer | John Southworth <john.southworth@vyatta.com> | 2011-03-08 16:53:20 -0600 |
| commit | 52f2d4f9515b576328e6428621b5ce76c6eba720 (patch) | |
| tree | 5f31e957fa4e7f6dff1bef9351349411e520ba45 /lib | |
| parent | 5683cbcaa28e822b92af1664560df30d5f35dfdb (diff) | |
| download | vyatta-cfg-vpn-52f2d4f9515b576328e6428621b5ce76c6eba720.tar.gz vyatta-cfg-vpn-52f2d4f9515b576328e6428621b5ce76c6eba720.zip | |
Fix perlcritic errors
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/Vyatta/VPN/Util.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Vyatta/VPN/Util.pm b/lib/Vyatta/VPN/Util.pm index 23ba63d..ec5200e 100755 --- a/lib/Vyatta/VPN/Util.pm +++ b/lib/Vyatta/VPN/Util.pm @@ -41,10 +41,10 @@ sub is_vpn_running { } sub get_protocols { - my $cmd = "sudo cat /etc/protocols |"; - open(PROTOCOLS, $cmd); + my $cmd = "sudo cat /etc/protocols"; + open(my $PROTOCOLS, "-|", $cmd); my @protocols = []; - while(<PROTOCOLS>){ + while(<$PROTOCOLS>){ push (@protocols, $_); } my %protohash = (); |