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

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 (file)
--- 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,