Move the wrapper for File::Path::mkpath() to install_lib.pl

installperl and installman call File::Path::mkpath with identical arguments
and options, so move the repeated code into a single place.

1 files changed, 5 insertions, 0 deletions

diff --git a/install_lib.pl b/install_lib.pl
index 1fe25794a2..e1163433fe 100644
--- a/install_lib.pl
+++ b/install_lib.pl
@@ -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;