]> git.etc.gen.nz Git - spong.git/commitdiff
Fixed bug in services() and servicE_objects() returning undef instead of a
authorStephen L Johnson <sjohnson@monsters.org>
Mon, 24 Jan 2000 05:56:41 +0000 (05:56 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Mon, 24 Jan 2000 05:56:41 +0000 (05:56 +0000)
null list (i.e. return (); ) if $self->services was undefined.

src/lib/Spong/Host.pm

index dc3cb171d6801c0486299c0b3e31a73d848e71b0..13e12b9b9d6da9eacde00ddd0cc46c39238dad0e 100755 (executable)
@@ -37,6 +37,8 @@ use Spong::History;
 use Spong::Info;
 use POSIX;
 
+use Data::Dumper;
+
 package Spong::Host;
 
 # Constructor.  This is a lazy constructor in that it doesn't get all it's
@@ -128,13 +130,13 @@ sub service {
 sub service_objects {
    my( $self, $name ) = @_; 
    my $servicelist = $self->services();
-   return $servicelist->services() if $servicelist;
+   if ( $servicelist ) { return $servicelist->services(); } else { return (); }
 }
 
 sub service_names { 
    my $self = shift;
    my $servicelist = $self->services();
-   return $servicelist->names() if $servicelist;
+   if ( $servicelist ) { return $servicelist->names(); } else { return (); }
 }
 
 sub color {