[Bioperl-guts-l] bioperl commit

[Jason Stajich]

jason
Thu May 27 14:17:43 EDT 2004
Update of /home/repository/bioperl/bioperl-live/Bio
In directory pub.open-bio.org:/tmp/cvs-serv8068/Bio

Modified Files:
	SeqIO.pm 
Log Message:
fix documentation since the default doesn't work anymore without -fh => \*ARGV

bioperl-live/Bio SeqIO.pm,1.75,1.76
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SeqIO.pm,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -r1.75 -r1.76
--- /home/repository/bioperl/bioperl-live/Bio/SeqIO.pm	2004/01/28 03:01:52	1.75
+++ /home/repository/bioperl/bioperl-live/Bio/SeqIO.pm	2004/05/27 18:17:43	1.76
@@ -102,16 +102,17 @@
 
 This makes the simplest ever reformatter
 
-    #!/usr/local/bin/perl
+    #!/usr/bin/perl
 
     $format1 = shift;
     $format2 = shift || die "Usage: reformat format1 format2 < input > output";
 
     use Bio::SeqIO;
 
-    $in  = Bio::SeqIO->newFh(-format => $format1 );
+    $in  = Bio::SeqIO->newFh(-format => $format1, -fh => \*ARGV );
     $out = Bio::SeqIO->newFh(-format => $format2 );
-    #note: you might want to quote -format to keep older perl's from complaining.
+    # Note: you might want to quote -format to keep older 
+    # perl's from complaining.
 
     print $out $_ while <$in>;
 
@@ -288,9 +289,8 @@
 
 Report bugs to the Bioperl bug tracking system to help us keep track
  the bugs and their resolution.
- Bug reports can be submitted via email or the web:
+ Bug reports can be submitted via the web:
 
-  bioperl-bugs at bioperl.org
   http://bugzilla.bioperl.org/
 
 =head1 AUTHOR - Ewan Birney, Lincoln Stein