Changeset 200

Timestamp:

01/14/06 17:26:21 (18 years ago)

Author:

thauvin

Message:

• avoid die() if mkpath failed, add reason into log

File:

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

trunk/soft/ObsData/ObsData/Repository.pm

@@ -691 +691 @@
             );
         } else {
-            if( ! File::Path::mkpath($dirname)) { 
+            eval { mkpath($dirname) };
+            if($@) {
                 $self->logging(
-                    4, "Can't create directory %s", 
-                    $dirname
+                    4, "Can't create directory %s: %s", 
+                    $dirname,
+                    $@
                 );
                 return 0;