Changeset 128


Ignore:
Timestamp:
12/13/05 17:49:11 (18 years ago)
Author:
thauvin
Message:
  • fix args in check
File:
1 edited

Legend:

Unmodified
Added
Removed

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

    • Property cvs2svn:cvs-rev changed from 1.45 to 1.46
    r127 r128  
    364364 
    365365    dest_exists => sub { 
    366         my ($self, $datafile, $dest) = @_; 
     366        my ($self, $check, $datafile, $dest) = @_; 
    367367        if (-e $dest) { 
    368368            return 1, "$dest exists"; 
    … …  
    446446            return 0; 
    447447        } else { 
     448            $self->logging(0, "%s", $text); 
    448449            return 1; 
    449450        } 
Note: See TracChangeset for help on using the changeset viewer.