[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
redundant pattern substitution... can't figure out why this throws a warning every time on some systems but not others

moby-live/Perl/MOBY/Client Central.pm,1.108,1.109
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -r1.108 -r1.109
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/07/29 19:37:51	1.108
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/07/29 19:39:37	1.109
@@ -1513,6 +1513,7 @@
 		{
 			$desc = $elem->firstChild;
 			$desc = $desc ? $desc->toString : "";
+			$desc ||="";
 			if ( $desc =~ /<!\[CDATA\[((?>[^\]]+))\]\]>/ ) {
 				$desc = $1;
 			}