[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Nov  1 05:02:13 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv16990/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
adding debugging info to commonsubs.  I broke it with the last commit

moby-live/Perl/MOBY CommonSubs.pm,1.20,1.21
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 09:59:04	1.20
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 10:02:13	1.21
@@ -602,6 +602,7 @@
     my $success = 0;
     my $responses = $moby->getElementsByTagName('moby:queryResponse');
     $responses ||= $moby->getElementsByTagName('queryResponse');
+    print STDERR "***checked responses\n";
     foreach my $n(0..($responses->getLength - 1)){
         print STDERR "***found response # $n\n";
         my $resp = $responses->item($n);