Changeset 111
- Timestamp:
- 12/11/05 02:36:09 (18 years ago)
- Location:
- trunk/soft/ObsData
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/soft/ObsData/ObsData/Repository.pm
- Property cvs2svn:cvs-rev changed from 1.37 to 1.38
r99 r111 34 34 # statusfile 35 35 # status Config::IniFile object to store extraction info 36 # dir based directory where archive are located 37 $or->{dir} or die "No dir given"; 38 -d $or->{dir} or return undef; 39 # patern glob() over file 36 40 37 41 $or->{status} ||= new Config::IniFiles( … … 76 80 my ($class, $infos, %param) = @_; 77 81 78 my $or = ObsData::Repository->new($infos, %param); 79 # dir directory to parse 80 # patern glob() over file 81 $or->{dir} or die "No dir given"; 82 my $or = ObsData::Repository->new($infos, %param) or return; 82 83 83 84 bless($or, $class); … … 136 137 my ($class, $infos, %param) = @_; 137 138 138 my $or = ObsData::Repository->new($infos, %param) ;139 my $or = ObsData::Repository->new($infos, %param) or return; 139 140 # dir directory to parse 140 # patern glob() over file141 $or->{dir} or die "No dir given";142 141 $or->{archivefile} or die "No archivefile given"; 143 142 -
trunk/soft/ObsData/t/OR-02.t
- Property cvs2svn:cvs-rev changed from 1.6 to 1.7
r87 r111 11 11 { 12 12 obsdata => $o, 13 dir => '.', 13 14 } 14 15 );
Note: See TracChangeset
for help on using the changeset viewer.