From fd92a859e2ba3eeeaafe4904cd04973eb8cd572b Mon Sep 17 00:00:00 2001
From: Thomas Berezansky <tsbere@mvlc.org>
Date: Wed, 7 Mar 2012 16:42:21 -0500
Subject: [PATCH] Stop warning about missing parentheses...

...by adding them.

Signed-off-by: Thomas Berezansky <tsbere@mvlc.org>
---
 src/perl/lib/OpenSRF/Application/Validator.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perl/lib/OpenSRF/Application/Validator.pm b/src/perl/lib/OpenSRF/Application/Validator.pm
index dc9b072..db2dce2 100644
--- 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};
-- 
2.11.0