Changeset 30 for trunk

Timestamp:

11/05/05 17:31:57 (19 years ago)

Author:

thauvin

Message:

• ensure an inifile object exists

File:

• trunk/soft/ObsData/ObsData.pm (modified) (1 diff, 1 prop)

trunk/soft/ObsData/ObsData.pm

@@ -29 +29 @@
 sub new {
     my ($class, $configfile) = @_;
-    my $obsdata = {};
+    my $obsdata = {
+        config => new Config::IniFiles(
+            -file => $configfile,
+            -default => 'global',
+            -allowcontinue => 1
+        ),
+    };
     
     if ($configfile) {
         (-f $configfile && -r _) or return undef;
-        $obsdata->{config} = new Config::IniFiles(
-            -file => $configfile,
-            -default => 'global',
-            -allowcontinue => 1
-        ) or return undef;
     }
+
+    $obsdata->{config} or return undef;
 
     bless($obsdata, $class);