From: Jason Etheridge <jason@esilibrary.com>
Date: Wed, 17 Aug 2011 05:30:27 +0000 (-0400)
Subject: prevent some uninitialized string warnings
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=316ceadc19a9c310eccc25c1b79ea39684aee428;p=working%2FEvergreen.git

prevent some uninitialized string warnings

Signed-off-by: Jason Etheridge <jason@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/RemoteAccount.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/RemoteAccount.pm
index 164e227149..7c586b45fa 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/RemoteAccount.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/RemoteAccount.pm
@@ -242,7 +242,7 @@ sub get {
     
     # $self->content($content);
 
-    if ($self->type eq "FTP") {
+    if (defined $self->type && $self->type eq "FTP") {
         return $self->get_ftp(@{$self->{get_args}});
     } else {
         my %keys = $self->key_check($params);
@@ -313,7 +313,7 @@ sub ls {
 
     $self->{ls_args} = \@targets;
 
-    if ($self->type eq "FTP") {
+    if (defined $self->type && $self->type eq "FTP") {
         return $self->ls_ftp(@targets);
     } else {
         my %keys = $self->key_check($params);