[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
darn regexp still wrong

moby-live/Perl/MOBY Central.pm,1.214,1.215
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.214
retrieving revision 1.215
diff -u -r1.214 -r1.215
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/31 22:25:59	1.214
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/31 22:44:29	1.215
@@ -1250,7 +1250,7 @@
 	$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" if ($serviceName =~ /^.+?[^A-Za-z0-9_]/);
 	
 	#	$error .="missing signatureURL \n" unless defined $signatureURL;
 	$error .= "missing authURI \n"      unless defined $AuthURI;