Changeset 29 for trunk

Timestamp:

11/05/05 17:30:01 (19 years ago)

Author:

thauvin

Message:

• allow to handle object if no config file is specified

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 = {
-        config => new Config::IniFiles(
+    my $obsdata = {};
+    
+    if ($configfile) {
+        (-f $configfile && -r _) or return undef;
+        $obsdata->{config} = new Config::IniFiles(
             -file => $configfile,
             -default => 'global',
             -allowcontinue => 1
-        ),
-    };
-    
-    (-f $configfile && -r _) && $obsdata->{config} or return undef;
+        ) or return undef;
+    }
+
     bless($obsdata, $class);
 }