[Bioperl-guts-l] bioperl commit

[Juguang Xiao]

juguang
Mon Mar  1 05:10:47 EST 2004
Update of /home/repository/bioperl/bioperl-run/Bio/Tools/Run
In directory pub.open-bio.org:/tmp/cvs-serv9862/Bio/Tools/Run

Modified Files:
	Seg.pm 
Log Message:
initial commit

bioperl-run/Bio/Tools/Run Seg.pm,1.9,1.10
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/Bio/Tools/Run/Seg.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- /home/repository/bioperl/bioperl-run/Bio/Tools/Run/Seg.pm	2003/03/28 22:42:07	1.9
+++ /home/repository/bioperl/bioperl-run/Bio/Tools/Run/Seg.pm	2004/03/01 10:10:47	1.10
@@ -228,7 +228,7 @@
      my $str =$self->executable." ".$self->_input." -l > ".$outfile;
      my $status = system($str);
      $self->throw( "Seg call ($str) crashed: $? \n") unless $status==0;
-
+#    print 'result dir: ', $outfile;
      my $filehandle;
      if (ref ($outfile) !~ /GLOB/) {
         open (SEG, "<".$outfile) or $self->throw ("Couldn't open file ".$outfile.": $!\n");