diff options
| author | Michael Larson <mike@vyatta.com> | 2010-11-16 09:31:43 -0800 |
|---|---|---|
| committer | Michael Larson <mike@vyatta.com> | 2010-11-16 09:31:43 -0800 |
| commit | 32aa23a917444bd91685850d21311cdb230dabe4 (patch) | |
| tree | 36da719ef760822e2661c052dbe5bf6df25b663a | |
| parent | 58ca1cd7f857b8cde91c063ccdda1b661c29e278 (diff) | |
| download | vyatta-cfg-32aa23a917444bd91685850d21311cdb230dabe4.tar.gz vyatta-cfg-32aa23a917444bd91685850d21311cdb230dabe4.zip | |
update to perl error location support.
| -rwxr-xr-x | lib/Vyatta/Config.pm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lib/Vyatta/Config.pm b/lib/Vyatta/Config.pm index 28326dd..43da205 100755 --- a/lib/Vyatta/Config.pm +++ b/lib/Vyatta/Config.pm @@ -678,15 +678,11 @@ sub compareValueLists { sub outputError { - my ($location, $msg) = @_; + my ($location,$msg) = @_; if (defined($ENV{VYATTA_OUTPUT_ERROR_LOCATION})) { - foreach my $elem (@$location) { - print STDERR "_errloc_:[" . $elem . "]\n" . $msg . "\n"; - } - } - else { - print STDERR $msg . "\n"; + print STDERR "_errloc_:[" . join(" ",@{$location}) . "]\n"; } + print STDERR $msg . "\n"; } ############################################################ |