change URL a bit for minimal HTML munging (params may be unstable, th…

…ough)
bioperl · Dec 14, 2011 · caf0014 · caf0014
1 parent ded877a
commit caf0014
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Bio/DB/SeqVersion/gi.pm b/Bio/DB/SeqVersion/gi.pm
@@ -108,7 +108,8 @@ use base qw(Bio::DB::SeqVersion);
 
 # Private class variables
 
-my $URL = 'http://www.ncbi.nlm.nih.gov/nuccore/%s?report=girevhist';
+# TODO: this may be an unstable setting (text is actually minimal XHTML)
+my $URL = 'http://www.ncbi.nlm.nih.gov/nuccore/%s?report=girevhist&format=text';
 
 =head2 new
 
@@ -251,7 +252,7 @@ sub _process_data {
     while ( my $token = $p->get_tag('td') ) {
 
         #print Dumper $token;
-        print $p->get_text . "\n";
+        print STDERR $p->get_text . "\n";
     }
 
     #if ($html =~ /Current\s+status:\s+([a-z]+)<\/div>(<table.+)/xms) {