[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 29 15:37:51 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv11703/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
redundant pattern substitution

moby-live/Perl/MOBY/Client Central.pm,1.107,1.108
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -r1.107 -r1.108
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/07/29 18:58:44	1.107
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/07/29 19:37:51	1.108
@@ -1517,7 +1517,7 @@
 				$desc = $1;
 			}
 		}
-		$desc =~ s/<!\[CDATA\[((?>[^\]]+))\]\]>/$1/gs;
+#		$desc =~ s/<!\[CDATA\[((?>[^\]]+))\]\]>/$1/gs;
 		$namespaces{$as_lsid?$lsid:$ns} = $desc;
 	}
 	return \%namespaces;