Changeset 242


Ignore:
Timestamp:
04/26/06 17:44:48 (18 years ago)
Author:
nanardon
Message:
  • add magic var to match only basename
File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r233 r242  
    663663    $val{'$datafile'} = $datafile; 
    664664    $val{'$archivefile'} = $self->{archivefile}; 
     665    ($val{'$basedatafile'}) = $datafile =~ m:/(.*)$:; 
    665666    my $destfile = sprintf( 
    666667        $dest, 
Note: See TracChangeset for help on using the changeset viewer.