[Catalyst-commits] r10978 - Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2009-07-24 23:38:48 +0000 (Fri, 24 Jul 2009)
New Revision: 10978

Modified:
   Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
Log:
added frif's patch


Modified: Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-07-24 23:31:52 UTC (rev 10977)
+++ Catalyst-Devel/1.00/branches/helper_refactor/lib/Catalyst/Helper.pm	2009-07-24 23:38:48 UTC (rev 10978)
@@ -154,7 +154,7 @@
         $type              = 'C' if $type =~ /controller/i;
         my $appdir = File::Spec->catdir( split /\:\:/, $app );
         my $test_path =
-          File::Spec->catdir( $FindBin::Bin, '..', 'lib', $appdir, 'C' );
+          File::Spec->catdir( $self->{base}, 'lib', $appdir, 'C' );
         $type = $self->{long_type} unless -d $test_path;
         $self->{type}  = $type;
         $self->{name}  = $name;
@@ -162,7 +162,7 @@
 
         # Class
         my $path =
-          File::Spec->catdir( $FindBin::Bin, '..', 'lib', $appdir, $type );
+          File::Spec->catdir( $self->{base}, 'lib', $appdir, $type );
         my $file = $name;
         if ( $name =~ /\:/ ) {
             my @path = split /\:\:/, $name;
@@ -174,7 +174,7 @@
         $self->{file} = $file;
 
         # Test
-        $self->{test_dir} = File::Spec->catdir( $FindBin::Bin, '..', 't' );
+        $self->{test_dir} = File::Spec->catdir( $self->{base}, 't' );
         $self->{test}     = $self->next_test;
 
         # Helper