From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 9 Dec 2012 16:51:35 +0000 (+0100)
Subject: Use legacy File::Path API - avoid a dependency (see next commit)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40112a8a79e08de519d0a68d50af800e6495db20;p=dbsrgits%2FDBIx-Class-Historic.git

Use legacy File::Path API - avoid a dependency (see next commit)
---

diff --git a/Makefile.PL b/Makefile.PL
index 5a4db0f..ab2bc94 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -68,9 +68,6 @@ my $runtime_requires = {
   'Scope::Guard'             => '0.03',
   'SQL::Abstract'            => '1.73',
   'Try::Tiny'                => '0.04',
-
-  # dual-life corelibs needing a specific bugfixed version
-  'File::Path'               => '2.07',
 };
 
 my $build_requires = {
diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index fdfd16e..6d26b87 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -2703,7 +2703,7 @@ sub create_ddl_dir {
   } else {
       -d $dir
         or
-      (require File::Path and File::Path::make_path ("$dir"))  # make_path does not like objects (i.e. Path::Class::Dir)
+      (require File::Path and File::Path::mkpath (["$dir"]))  # mkpath does not like objects (i.e. Path::Class::Dir)
         or
       $self->throw_exception(
         "Failed to create '$dir': " . ($! || $@ || 'error unknown')