From: Sebastian Riedel <sri@labs.kraih.com>
Date: Thu, 28 Apr 2005 19:15:10 +0000 (+0000)
Subject: Fixed win32 installer
X-Git-Tag: 5.7099_04~1417
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=91eeb37b4a08e92c5f893ccb1a8eddc862602651

Fixed win32 installer
---

diff --git a/Changes b/Changes
index 930346d..1388938 100644
--- a/Changes
+++ b/Changes
@@ -4,6 +4,7 @@ This file documents the revision history for Perl extension Catalyst.
         - improved uploads and parameters
         - added $c->req->protocol and $c->req->secure
         - improved error message when forwarding to unknown module
+        - fixed win32 installer
 
 5.10  Sat Apr 23 11:16:00 2005
         - updated dependencies to require latest module::pluggable::fast
diff --git a/lib/Catalyst/Build.pm b/lib/Catalyst/Build.pm
index f190b41..256a80d 100644
--- a/lib/Catalyst/Build.pm
+++ b/lib/Catalyst/Build.pm
@@ -55,14 +55,12 @@ sub ACTION_fakeinstall {
 =cut
 
 sub ACTION_install_extras {
-    my $self   = shift;
-    my $prefix = $self->{properties}{destdir} || '';
-    my $path   = dir(
-        $prefix,
-        $self->{config}{installsitelib},
-        split( '::', $self->{properties}{module_name} )
-    );
-    my @files = $self->_find_extras;
+    my $self    = shift;
+    my $prefix  = $self->{properties}{destdir} || undef;
+    my $sitelib = $self->{config}{installsitelib};
+    my @path    = defined $prefix ? ( $prefix, $sitelib ) : ($sitelib);
+    my $path    = dir( @path, split( '::', $self->{properties}{module_name} ) );
+    my @files   = $self->_find_extras;
     print "Installing extras to $path\n";
     for (@files) {
         $FAKE