view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

                 my $self = shift;
                 $self->SUPER::ACTION_code(@_);
                 # Copy the test scripts and then set the shebang line and make
                 # sure that they're executable.
                 my @scripts;
                 my $to_dir = $self->localize_file_path("t/scripts");
                 for my $base (qw(testsvnlook testsendmail)) {
                     my $script = "$to_dir/$base";
                     push @scripts, $self->localize_file_path($script);
                     my $orig = $self->localize_file_path("t/bin/$base");
                     $self->copy_if_modified(
                         from    => $orig,
                         to_dir  => $to_dir,
                         flatten => 1,
                     );
                 }
                 $self->fix_shebang_line(@scripts);
                 $self->make_executable(@scripts);
                 $self->add_to_cleanup($to_dir);
             }
         },