This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move the wrapper for File::Path::mkpath() to install_lib.pl
[perl5.git] / install_lib.pl
index 1fe2579..e116343 100644 (file)
@@ -7,6 +7,7 @@ use strict;
 use vars qw($Is_VMS $Is_W32 $Is_OS2 $Is_Cygwin $Is_Darwin $Is_NetWare
            %opts $packlist);
 use subs qw(unlink link chmod);
+require File::Path;
 
 use Config;
 BEGIN {
@@ -141,4 +142,8 @@ sub safe_rename {
     unlink($from);
 }
 
+sub mkpath {
+    File::Path::mkpath(shift , $opts{verbose}, 0777) unless $opts{notify};
+}
+
 1;