[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Dec  9 16:38:39 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv28559/Perl/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
initialize possibly undef values

moby-live/Perl/MOBY CommonSubs.pm,1.31,1.32
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/12/09 21:30:33	1.31
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/12/09 21:38:39	1.32
@@ -370,8 +370,12 @@
 
 sub simpleResponse {
     my ($data, $articleName, $qID) = @_;  # articleName optional
-    $data ||='';
     $qID = &_getQueryID($qID) if ref($qID) =~ /XML::DOM/; # in case they send the DOM instead of the ID
+
+    $data ||='';  # initialize to avoid uninit value errors
+    $qID ||="";
+    $articleName ||="";
+    
     if ($articleName) {
         return "
         <moby:queryResponse moby:queryID='$qID'>