[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 31 18:24:28 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1418/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.212,1.213
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.212
retrieving revision 1.213
diff -u -r1.212 -r1.213
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/31 22:20:10	1.212
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/31 22:24:28	1.213
@@ -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" 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 .= "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 .="missing signatureURL \n" unless defined $signatureURL;
 	$error .= "missing authURI \n"      unless defined $AuthURI;