leaving parse methods early if proper fields aren't defined (avoid warnings on system...
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 30 Jan 2006 04:45:50 +0000 (04:45 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 30 Jan 2006 04:45:50 +0000 (04:45 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2882 dcc99617-32d9-48b4-a31d-7c20da2025e4

OpenSRF/src/perlmods/OpenSRF/Application.pm

index 2879e1f..d55c9ac 100644 (file)
@@ -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,