From: Sebastian Riedel <sri@labs.kraih.com>
Date: Sun, 21 Aug 2005 17:30:10 +0000 (+0000)
Subject: Fixed mkpath in Catalyst::Helper
X-Git-Tag: 5.7099_04~1249
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=fd59198f81df808d08ec0720d6ef667ef34921ab

Fixed mkpath in Catalyst::Helper
---

diff --git a/Changes b/Changes
index 72895a8..3e0539a 100644
--- a/Changes
+++ b/Changes
@@ -1,7 +1,11 @@
 This file documents the revision history for Perl extension Catalyst.
 
+5.34  2005-08-21 00:00:00
+        - Fixed mkpath in Catalyst::Helper (Autrijus Tang)
+
 5.33  2005-08-10 15:25:00
 	- Now with updated manifest.
+
 5.32  2005-08-10 15:10:00
 	- Dispatcher might fail if object returns false. (Florian Ragwitz)
 
diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 1b731a5..9a1149b 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -13,7 +13,7 @@ our $CATALYST_SCRIPT_GEN = 4;
 
 __PACKAGE__->mk_classdata($_) for qw/arguments dispatcher engine log/;
 
-our $VERSION = '5.33';
+our $VERSION = '5.34';
 our @ISA;
 
 =head1 NAME
diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index 2af57d0..61b5a2d 100644
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -136,7 +136,7 @@ sub mk_component {
             my @path = split /\:\:/, $name;
             $file = pop @path;
             $path = File::Spec->catdir( $path, @path );
-            mkpath $path;
+            mkpath [$path];
         }
         $file = File::Spec->catfile( $path, "$file.pm" );
         $self->{file} = $file;