use File::Find;
use FindBin;
-use File::Copy::Recursive 'rcopy';
+use File::Copy::Recursive;
use File::Spec ();
use Getopt::Long ();
use Data::Dumper;
sub catalyst {
my $self = shift;
+
+ if($Module::Install::AUTHOR) {
+ $self->include("File::Copy::Recursive");
+ }
+
print <<EOF;
*** Module::Install::Catalyst
EOF
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 );
}
}
@IGNORE = @$ignore;
}
-=head2 catalyst_ignore(\@ignore)
+=head2 catalyst_ignore(@ignore)
Add a regexp to the list of ignored patterns. Can be called multiple times.
else {
my $p = Getopt::Long::Parser->new(config => ['no_ignore_case']);
my %o;
+ require Text::ParseWords;
{
- local @ARGV = $optstring;
+ local @ARGV = Text::ParseWords::shellwords($optstring);
$p->getoptions(\%o, PAR::Packer->options);
}
%PAROPTS = ( %PAROPTS, %o);