From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 30 Jan 2006 04:45:50 +0000 (+0000)
Subject: leaving parse methods early if proper fields aren't defined (avoid warnings on system... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d3b9e7f1be160c892d78fc34fc42501dcc865691;p=opensrf%2Fbjwebb.git

leaving parse methods early if proper fields aren't defined (avoid warnings on system start)


git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@632 9efc2488-bf62-4759-914b-345cdb29e865
---

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 2879e1f..d55c9ac 100644
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -324,6 +324,7 @@ sub normalize_whitespace {
 
 sub parse_string_signature {
 	my $string = shift;
+	return [] unless $string;
 	my @chunks = split(/\@/so, $string);
 
 	my @params;
@@ -346,6 +347,7 @@ sub parse_string_signature {
 sub parse_array_signature {
 	my $array = shift;
 	my ($d,$p,$r) = @$array;
+	return {} unless ($d or $p or $r);
 
 	return {
 		desc	=> $d,