bin/perl5i.plx @@ -1,6 +1,8 @@ .perlcriticrc .perltidyrc +bin/perl5i.bat.PL bin/perl5i.c.PL +bin/perl5i.plx Build.PL inc/MyBuild.pm INSTALL.SKIP @@ -39,5 +41,5 @@ t/List-Util/sum.t t/modern_perl.t t/Module-Load.t t/time_compat.t -t/y2038.t t/wrap.t +t/y2038.t MANIFEST @@ -2,14 +2,14 @@ package MyBuild; use base 'Module::Build'; -# Override default 'build' action +# Override default 'code' action # to allow compilation of perl5i.c -sub ACTION_build { +sub ACTION_code { my $self = shift; # This has to be run first so the PL files are run to generate # the C code for us to compile. - $self->SUPER::ACTION_build(@_); + $self->process_PL_files; if ( $self->is_windowsish ) { # Writing a C wrapper is too hard on Windows @@ -33,8 +33,15 @@ sub ACTION_build { $self->add_to_cleanup($obj_file, $exe_file); } else { - warn "WARNING: No C compiler available; perl5i executable will not be installed.\n"; + # No C compiler, Unix style operating system. + # Just use the Perl wrapper. + File::Copy::copy("bin/perl5i.plx", "bin/perl5i"); + + $self->script_files("bin/perl5i"); + $self->add_to_cleanup("bin/perl5i"); } + + return $self->SUPER::ACTION_code; } inc/MyBuild.pm @@ -9,8 +9,9 @@ use File::Spec; use Test::More; my $perl5i; +my $script_dir = File::Spec->catdir("blib", "script"); for my $wrapper (qw(perl5i perl5i.bat)) { - $perl5i = File::Spec->catfile("bin", $wrapper); + $perl5i = File::Spec->catfile($script_dir, $wrapper); last if -e $perl5i; } t/command_line_wrapper.t a0852e024d4b5e33fb9264105584c9340c7b919f Michael G. Schwern schwern@pobox.com http://github.com/schwern/perl5i/commit/07e02becf1872c93ab4d3b9cd5d32bb8f0aba5aa 07e02becf1872c93ab4d3b9cd5d32bb8f0aba5aa 2009-07-07T18:01:02-07:00 2009-07-07T18:01:02-07:00 Add a Perl wrapper around perl5i so there's something when there's no C compiler. 9f0d6f47cb37462275b07289bac027a5bcbb11f1 Michael G. Schwern schwern@pobox.com