[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Apr  8 10:51:50 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv8262/MOBY-Server/lib/MOBY

Modified Files:
	Central.pm 
Log Message:
fixed regex that checks datatype name when registering a datatype.
moby-live/Perl/MOBY-Server/lib/MOBY Central.pm,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm	2009/03/26 18:41:41	1.8
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm	2009/04/08 14:51:50	1.9
@@ -318,7 +318,7 @@
 	return &_error("Object name may not contain spaces or other characters invalid in a URN",
 		""
 	  )
-	  if $term =~ /\s\"\&\<\>\[\]\^\`\{\|\}\~/;
+	  if $term =~ /[\/\'\\\s\"\&\<\>\[\]\^\`\{\|\}\~]/;
 	if ( $term =~ m"^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?" )
 	{    # matches a URI
 		return &_error( "Object name may not be an URN or URI", "" ) if $1;