[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
correctly anchor regexps

moby-live/Perl/MOBY Central.pm,1.213,1.214
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.213
retrieving revision 1.214
diff -u -r1.213 -r1.214
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/31 22:24:28	1.213
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/31 22:25:59	1.214
@@ -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" 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;