[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Nov  1 05:04:13 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv17322/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.21,1.22
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 10:02:13	1.21
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 10:04:13	1.22
@@ -587,7 +587,9 @@
 
 sub extractResponseArticles {
     my ($result) = @_;
+    print STDERR "***extracting response articles\n";
     return ([], []) unless $result;
+    print STDERR "***extracted response articles\n";
     my $moby;
     unless (ref($result) =~ /XML\:\:DOM/){
         my $parser = new XML::DOM::Parser;