cvs commit: modperl-2.0 Makefile.PL

2002-03-13 Thread stas 

stas02/03/13 08:01:02

  Modified:.Makefile.PL
  Log:
  do yourself a favor, don't use perl v5.6.0
  
  Revision  ChangesPath
  1.59  +5 -0  modperl-2.0/Makefile.PL
  
  Index: Makefile.PL
  ===
  RCS file: /home/cvs/modperl-2.0/Makefile.PL,v
  retrieving revision 1.58
  retrieving revision 1.59
  diff -u -r1.58 -r1.59
  --- Makefile.PL   31 Dec 2001 08:45:13 -  1.58
  +++ Makefile.PL   13 Mar 2002 16:01:02 -  1.59
  @@ -25,6 +25,11 @@
   }
   }
   
  +if ($] < 5.006001) {
  +error "You are running Perl version $]\n" .
  +"We strongly suggest to upgrade to at least 5.6.1";
  +}
  +
   my $build = Apache::Build->new(init => 1);
   my $code  = ModPerl::Code->new;

cvs commit: modperl-2.0/src/modules/perl modperl_log.h

2002-03-13 Thread dougm 

dougm   02/03/13 09:21:53

  Modified:src/modules/perl modperl_log.h
  Log:
  Submitted by:   Philippe M. Chiasson <[EMAIL PROTECTED]>
  Reviewed by:  dougm
  fix MP_FUNC for gcc3
  
  Revision  ChangesPath
  1.7   +9 -4  modperl-2.0/src/modules/perl/modperl_log.h
  
  Index: modperl_log.h
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_log.h,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- modperl_log.h 11 Oct 2001 19:14:06 -  1.6
  +++ modperl_log.h 13 Mar 2002 17:21:53 -  1.7
  @@ -2,10 +2,15 @@
   #define MODPERL_LOG_H
   
   #ifdef MP_TRACE
  -/* XXX: not every cc supports this
  - * sort out later
  - */
  -#   define MP_FUNC __FUNCTION__
  +#   if defined(__GNUC__)
  +#  if (__GNUC__ > 2)
  +# define MP_FUNC __func__
  +#  else
  +# define MP_FUNC __FUNCTION__
  +#  endif
  +#   else
  +#  define MP_FUNC "MP_FUNC"
  +#   endif
   #else
   #   define MP_FUNC "MP_FUNC"
   #endif

cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

2002-03-13 Thread stas 

stas02/03/13 09:26:50

  Modified:lib/ModPerl WrapXS.pm
  Log:
  - wrap the XS loading in the BEGIN block, to make sure that any constants
  defined in the boot function will be immediately available during
  the perl code compilation
  
  Revision  ChangesPath
  1.40  +7 -4  modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.39
  retrieving revision 1.40
  diff -u -r1.39 -r1.40
  --- WrapXS.pm 14 Dec 2001 05:12:13 -  1.39
  +++ WrapXS.pm 13 Mar 2002 17:26:50 -  1.40
  @@ -496,10 +496,13 @@
   $noedit_warning
   
   package $module;
  -$isa
  -use $loader ();
  -our \$VERSION = '0.01';
  -$loader\::load __PACKAGE__;
  +
  +BEGIN {
  +$isa
  +use $loader ();
  +our \$VERSION = '0.01';
  +$loader\::load __PACKAGE__;
  +}
   
   $code

cvs commit: modperl/lib/Apache SizeLimit.pm

2002-03-13 Thread stas 

stas02/03/13 21:27:44

  Modified:lib/Apache SizeLimit.pm
  Log:
  - the parent process doesn't get killed if it's big, so correct the note
  not to say "exiting..."
  
  Revision  ChangesPath
  1.9   +1 -1  modperl/lib/Apache/SizeLimit.pm
  
  Index: SizeLimit.pm
  ===
  RCS file: /home/cvs/modperl/lib/Apache/SizeLimit.pm,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- SizeLimit.pm  6 Jul 2001 13:44:39 -   1.8
  +++ SizeLimit.pm  14 Mar 2002 05:27:43 -  1.9
  @@ -227,7 +227,7 @@
$r->child_terminate;
   
} else {# this is the main httpd, whose parent is init?
  - my $msg = "main process too big, exiting at SIZE=$size KB ";
  + my $msg = "main process too big, SIZE=$size KB ";
$msg .= " SHARE=$share KB" if ($share);
error_log($msg);
}