Stop warning about missing parentheses...

...by adding them.

Signed-off-by: Thomas Berezansky <tsbere@mvlc.org>

diff --git a/src/perl/lib/OpenSRF/Application/Validator.pm b/src/perl/lib/OpenSRF/Application/Validator.pm
index dc9b072..db2dce2 100644 (file)
--- a/src/perl/lib/OpenSRF/Application/Validator.pm
+++ b/src/perl/lib/OpenSRF/Application/Validator.pm
@@ -31,7 +31,7 @@ sub do_validate {
     my @validator_names = sort keys %$validators;
     my $additionals = ();
 
-    my $submodulename, $submodule;
+    my ($submodulename, $submodule);
     while($return->{valid} && ($submodulename = shift @validator_names)) {
         $submodule = $validators->{$submodulename};
         my $implementation = $submodule->{implementation};