[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Jun 19 18:38:10 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies
In directory dev.open-bio.org:/tmp/cvs-serv4204/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies

Modified Files:
	Services.pm 
Log Message:
added some checks to quiet the warnings about uninitialize variables

moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies Services.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Services.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Services.pm	2008/06/19 21:49:01	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/RDF/Ontologies/Services.pm	2008/06/19 22:38:10	1.5
@@ -172,7 +172,7 @@
 	  unless $self->{datatype_uri} =~ m/^.*(\/{1})$/; 
 
 	#set the isAlive path
-	$self->{is_alive_path} = $CONF->{mobycentral}->{service_tester_path} if $ENV{MOBY_SERVER} eq $self->{endpoint};
+	$self->{is_alive_path} = $CONF->{mobycentral}->{service_tester_path} if $ENV{MOBY_SERVER} and $self->{endpoint} and $ENV{MOBY_SERVER} eq $self->{endpoint};
 
 	# done
 	return $self;