[Bio] / FigCommon / tool_hdr.pl Repository:
ViewVC logotype

Diff of /FigCommon/tool_hdr.pl

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

revision 1.1, Wed Mar 31 17:04:46 2004 UTC revision 1.2, Wed Jun 30 18:20:29 2004 UTC
# Line 33  Line 33 
33  else  else
34  {  {
35      $out = $ARGV[0];      $out = $ARGV[0];
36    
37        if (-f $out)
38        {
39            #
40            # Better would be to replace the existing tool_hdr, if present,
41            # with the right thing. But not yet.
42            #
43    
44            die "Output file $out already exists, not overwriting.\n";
45        }
46    
47    
48      open(OUT, ">$out") or die "Cannot open output $out: $!\n";      open(OUT, ">$out") or die "Cannot open output $out: $!\n";
49      while (<FH>)      while (<FH>)
50      {      {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3