Fix Pod - RT#68563

[catagits/Catalyst-Devel.git] / lib / Module / Install / Catalyst.pm

diff --git a/lib/Module/Install/Catalyst.pm b/lib/Module/Install/Catalyst.pm
index d081c33..4c47bff 100644 (file)
--- a/lib/Module/Install/Catalyst.pm
+++ b/lib/Module/Install/Catalyst.pm
@@ -60,10 +60,7 @@ sub catalyst {
     my $self = shift;
 
     if($Module::Install::AUTHOR) {
-        $self->admin->copy_package(
-            'File::Copy::Recursive',
-            $INC{"File/Copy/Recursive.pm"},
-        );
+        $self->include("File::Copy::Recursive");
     }
 
     print <<EOF;
@@ -102,7 +99,7 @@ sub catalyst_files {
     my @path = split '-', $self->name;
     for my $orig (@files) {
         my $path = File::Spec->catdir( 'blib', 'lib', @path, $orig );
-        rcopy( $orig, $path );
+        File::Copy::Recursive::rcopy( $orig, $path );
     }
 }
 
@@ -117,7 +114,7 @@ sub catalyst_ignore_all {
     @IGNORE = @$ignore;
 }
 
-=head2 catalyst_ignore(\@ignore)
+=head2 catalyst_ignore(@ignore)
 
 Add a regexp to the list of ignored patterns. Can be called multiple times.