diff options
| author | John Southworth <john.southworth@vyatta.com> | 2011-02-07 12:33:57 -0600 |
|---|---|---|
| committer | John Southworth <john.southworth@vyatta.com> | 2011-02-07 12:33:57 -0600 |
| commit | 9f24f11add42a991fad3892b9bbb9aea999a8ac7 (patch) | |
| tree | 01632f374e0863283846d6d7c9032461ef3b1ccf /scripts | |
| parent | dc69c35534fbb13efca3eba6761655e3e9b3d75e (diff) | |
| download | vyatta-op-vpn-9f24f11add42a991fad3892b9bbb9aea999a8ac7.tar.gz vyatta-op-vpn-9f24f11add42a991fad3892b9bbb9aea999a8ac7.zip | |
Fix filehandlers to conform to perl style guidelines
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/vyatta-show-vpn.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/vyatta-show-vpn.pl b/scripts/vyatta-show-vpn.pl index 983f344..80d08b4 100755 --- a/scripts/vyatta-show-vpn.pl +++ b/scripts/vyatta-show-vpn.pl @@ -38,9 +38,9 @@ if ($arg0 eq 'secrets') { unless ( -r $secret_file) { die "No secrets file $secret_file\n"; } - open(DAT, $secret_file); - my @raw_data=<DAT>; - close(DAT); + open(my $DAT, '<', $secret_file); + my @raw_data=<$DAT>; + close($DAT); print "Local Peer Local ID Peer ID Secret\n"; print "-------- ------- -------- ------- ------\n"; foreach my $line (@raw_data) { |