[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jan 15 11:04:54 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv26466/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
this might fix the bug that Viji just found allowing registration of services without a Category

moby-live/Perl/MOBY Central.pm,1.122,1.123
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -r1.122 -r1.123
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2004/01/02 20:39:22	1.122
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2004/01/15 16:04:54	1.123
@@ -1066,7 +1066,7 @@
 		);
 	$debug && &_LOG("Entering switch with $Category method\n");
 
-	return &_error("Service categories other than 'moby' and 'wsdl' are not yet implemented","") unless ($Category eq "moby" || $Category eq "wsdl");
+	return &_error("Service categories other than 'moby' and 'wsdl' are not yet implemented","") unless (($Category eq "moby") || ($Category eq "wsdl"));
 	my @IN = @{$INPUTS};
 	my @OUT = @{$OUTPUTS};
 	my @SECS = @{$SECONDARY};