perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0 Makefile.PL
Date Mon, 02 Apr 2001 09:17:41 GMT
dougm       01/04/02 02:17:41

  Modified:    .        Makefile.PL
  Log:
  hook into test stuff
  
  Revision  Changes    Path
  1.30      +23 -1     modperl-2.0/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Makefile.PL,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -r1.29 -r1.30
  --- Makefile.PL	2001/03/27 02:32:49	1.29
  +++ Makefile.PL	2001/04/02 09:17:40	1.30
  @@ -3,15 +3,20 @@
   use warnings FATAL => 'all';
   
   use lib qw(lib);
  +use Config;
   use Apache::Build ();
   use ModPerl::Code ();
   use ModPerl::MM ();
   
  +use lib qw(Apache-Test/lib);
  +use Apache::TestMM qw(test);
  +
   our $VERSION;
   
   my $build = Apache::Build->new(init => 1);
   my $code  = ModPerl::Code->new;
   
  +my @scripts = qw(t/TEST);
   configure();
   
   ModPerl::MM::WriteMakefile(
  @@ -58,6 +63,10 @@
       #ModPerl::MM will use Apache::BuildConfig in subdir/Makefile.PL's
       $build->save;
   
  +    for (@scripts) {
  +        generate_script($_);
  +    }
  +
       generate_xs($httpd_version) if $build->{MP_GENERATE_XS};
   }
   
  @@ -103,6 +112,19 @@
       shift @INC;
   }
   
  +sub generate_script {
  +    my $file = shift;
  +    open my $in, "$file.PL" or die "Couldn't open $file.PL: $!";
  +    open my $out, '>', $file or die "Couldn't open $file: $!";
  +    print "generating script...$file\n";
  +    print $out "#!$Config{perlpath}\n",
  +               "# WARNING: this file is generated, edit $file.PL instead\n",
  +               join '', <$in>;
  +    close $out or die "close $file: $!";
  +    close $in;
  +    chmod 0544, $file;
  +}
  +
   sub echo_cmd {
       my $cmd = shift;
       print "$cmd\n";
  @@ -112,7 +134,7 @@
   sub clean_files {
       my $path = $code->path;
   
  -    return [@{ $build->clean_files },
  +    return [@{ $build->clean_files }, @scripts,
         map { "$path/$_"} @{ $code->clean_files }];
   }
   
  
  
  

Mime
View raw message