[Bio] / FortyEight / JobStage.pm Repository:
ViewVC logotype

Diff of /FortyEight/JobStage.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Wed Sep 5 21:42:54 2007 UTC revision 1.2, Thu Sep 13 19:56:18 2007 UTC
# Line 154  Line 154 
154      $self->log("process $cmd finishes successfully");      $self->log("process $cmd finishes successfully");
155  }  }
156    
157    sub open_file
158    {
159        my($self, @spec) = @_;
160    
161        my $fh = FileHandle->new(@spec);
162        $fh or $self->fatal("Cannot open @spec: $!");
163        return $fh;
164    }
165    
166    
167  sub fatal  sub fatal
168  {  {
169      my($self, $msg) = @_;      my($self, $msg) = @_;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3