cvs commit: modperl-2.0/lib/Apache Build.pm

[dougm]

dougm       01/10/20 23:43:34

  Modified:    .        Makefile.PL
               lib/Apache Build.pm
  Log:
  die as early as possible in the build if system requires ithreads
  
  Revision  Changes    Path
  1.47      +6 -0      modperl-2.0/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Makefile.PL,v
  retrieving revision 1.46
  retrieving revision 1.47
  diff -u -r1.46 -r1.47
  --- Makefile.PL       2001/10/20 18:59:28     1.46
  +++ Makefile.PL       2001/10/21 06:43:34     1.47
  @@ -16,6 +16,12 @@
   
   our $VERSION;
   
  +if (Apache::Build::REQUIRE_ITHREADS()) {
  +    unless (Apache::Build::HAS_ITHREADS()) {
  +     die "your system requires an ithreads enabled Perl";
  +    }
  +}
  +
   my $build = Apache::Build->new(init => 1);
   my $code  = ModPerl::Code->new;
   
  
  
  
  1.62      +4 -0      modperl-2.0/lib/Apache/Build.pm
  
  Index: Build.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v
  retrieving revision 1.61
  retrieving revision 1.62
  diff -u -r1.61 -r1.62
  --- Build.pm  2001/10/21 06:22:45     1.61
  +++ Build.pm  2001/10/21 06:43:34     1.62
  @@ -14,6 +14,10 @@
   use ModPerl::BuildOptions ();
   use Apache::TestTrace;
   
  +use constant REQUIRE_ITHREADS => grep { $^O eq $_ } qw(MSWin32);
  +use constant HAS_ITHREADS =>
  +    $Config{useithreads} && ($Config{useithreads} eq 'define');
  +
   use constant is_win32 => $^O eq 'MSWin32';
   use constant IS_MOD_PERL_BUILD => grep { -e "$_/lib/mod_perl.pm" } qw(. ..);