Changeset 98


Ignore:
Timestamp:
12/04/05 16:45:27 (19 years ago)
Author:
thauvin
Message:
  • don't overwrite an existing file
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/soft/ObsData/ObsData/Repository.pm

    • Property cvs2svn:cvs-rev changed from 1.35 to 1.36
    r97 r98  
    383383    } 
    384384     
     385    if (-e $destfile) { 
     386        $self->loging(3, 
     387            "%s extracted from %s/%s already exists, I won't overwrite it", 
     388            $destfile, 
     389            $self->{archivefile}, $datafile, 
     390        ); 
     391        return 0; 
     392    } 
     393     
    385394    $self->loging(0, 
    386395        "Trying to extract %s from %s/%s", 
Note: See TracChangeset for help on using the changeset viewer.