pf-tools commit: r891 [parmelan-guest] - /branches/next-gen/lib/PFTools/Update/Mkdir.pm

[parmelan-guest at users.alioth.debian.org]

Author: parmelan-guest
Date: Tue Sep  7 14:36:44 2010
New Revision: 891

URL: http://svn.debian.org/wsvn/pf-tools/?sc=1&rev=891
Log:
More mkdir -> make_path

Modified:
    branches/next-gen/lib/PFTools/Update/Mkdir.pm

Modified: branches/next-gen/lib/PFTools/Update/Mkdir.pm
URL: http://svn.debian.org/wsvn/pf-tools/branches/next-gen/lib/PFTools/Update/Mkdir.pm?rev=891&op=diff
==============================================================================
--- branches/next-gen/lib/PFTools/Update/Mkdir.pm (original)
+++ branches/next-gen/lib/PFTools/Update/Mkdir.pm Tue Sep  7 14:36:44 2010
@@ -24,9 +24,7 @@
 
 use English qw( -no_match_vars );    # Avoids regex performance penalty
 use Exporter;
-use File::Compare;
-use File::Copy;
-use Text::Diff;
+use File::Path qw( make_path );
 
 use PFTools::Conf;
 use PFTools::Logger;
@@ -67,9 +65,9 @@
         Do_before_change( $ref_section, $options, $hash_subst ) && return 1;
         if ( !$options->{'simul'} ) {
             Do_moveold( $dest, $options );
-            if ( deferredlogsystem( "/bin/mkdir -p '" . $dest . "'" ) ) {
-                Warn( $CODE->{'OPEN'},
-                    "Unable to create directory " . $dest );
+            eval { make_path($dest); };
+            if ($EVAL_ERROR) {
+                Warn( $CODE->{'OPEN'}, "make_path($dest): $EVAL_ERROR" );
                 return 1;
             }
         }