[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 31 18:20:10 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1353/MOBY

Modified Files:
	Central.pm 
Log Message:
service name tests were logically backwards.  Don't know why it took so long for the error to be noticed, though. 

moby-live/Perl/MOBY Central.pm,1.211,1.212
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.211
retrieving revision 1.212
diff -u -r1.211 -r1.212
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/30 15:19:30	1.211
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/31 22:20:10	1.212
@@ -1249,8 +1249,8 @@
 	my $error;
 	$error .= "missing serviceName \n" unless defined $serviceName;
 	$error .= "missing serviceType \n" unless defined $serviceType;
-	$error .= "invalid character string for serviceName.  Must start with a letter followed by [A-Za-z0-9_]\n" if ($serviceName =~ /[^A-Za-z]/);
-	$error .= "invalid character string for serviceName.  Must start with a letter followed by [A-Za-z0-9_]\n" if ($serviceName =~ /.[^A-Za-z0-9_]/);
+	$error .= "invalid character string for serviceName.  Must start with a letter followed by [A-Za-z0-9_]\n" unless ($serviceName =~ /[^A-Za-z]/);
+	$error .= "invalid character string for serviceName.  Must start with a letter followed by [A-Za-z0-9_]\n" unless ($serviceName =~ /.[^A-Za-z0-9_]/);
 	
 	#	$error .="missing signatureURL \n" unless defined $signatureURL;
 	$error .= "missing authURI \n"      unless defined $AuthURI;