Changeset 243


Ignore:
Timestamp:
05/01/06 17:58:16 (18 years ago)
Author:
nanardon
Message:
  • fix basedatafile regexp
File:
1 edited

Legend:

Unmodified
Added
Removed

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

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