From 316ceadc19a9c310eccc25c1b79ea39684aee428 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Wed, 17 Aug 2011 01:30:27 -0400 Subject: [PATCH] prevent some uninitialized string warnings Signed-off-by: Jason Etheridge --- Open-ILS/src/perlmods/lib/OpenILS/Utils/RemoteAccount.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); -- 2.11.0