cvs commit: modperl-2.0/t .cvsignore

2001-12-10 Thread stas

stas01/12/09 23:44:53

  Modified:t.cvsignore
  Log:
  - ignore the generated t/SMOKE
  
  Revision  ChangesPath
  1.3   +1 -0  modperl-2.0/t/.cvsignore
  
  Index: .cvsignore
  ===
  RCS file: /home/cvs/modperl-2.0/t/.cvsignore,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- .cvsignore2001/09/12 17:11:47 1.2
  +++ .cvsignore2001/12/10 07:44:53 1.3
  @@ -1,4 +1,5 @@
   TEST
  +SMOKE
   .gdb-test-start
   htdocs
   logs
  
  
  



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

2001-12-10 Thread stas

stas01/12/10 00:28:22

  Modified:lib/Apache compat.pm
  Log:
  - because of open()'s prototype problems we cannot forward @_ to open.
  (tested with 5.6.1 and bleadperl)
  
  Revision  ChangesPath
  1.30  +14 -1 modperl-2.0/lib/Apache/compat.pm
  
  Index: compat.pm
  ===
  RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -r1.29 -r1.30
  --- compat.pm 2001/12/05 19:18:08 1.29
  +++ compat.pm 2001/12/10 08:28:22 1.30
  @@ -267,6 +267,7 @@
   
   use Fcntl ();
   use Symbol ();
  +use Carp ();
   
   sub new {
   my($class) = shift;
  @@ -282,7 +283,19 @@
   
   sub open {
   my($self) = shift;
  -open $self, shift, @_; # because of open's prototype
  +
  +Carp::croak(no Apache::File object passed)
  +  unless $self  ref($self);
  +
  +# cannot forward @_ to open() because of its prototype
  +if (@_  1) {
  +my ($mode, $file) = @_;
  +open $self, $mode, $file;
  +}
  +else {
  +my $file = shift;
  +open $self, $file;
  +}
   }
   
   sub close {
  
  
  



cvs commit: modperl Changes

2001-12-10 Thread dougm

dougm   01/12/10 19:29:44

  Modified:src/modules/win32 mod_perl.def
   apacimod_perl.exp
   .Changes
  Log:
  added perl_perl_merge_dir_config and array_header2avrv symbols to
  mod_perl.def for win32 and mod_perl.exp for aix
  Submitted by: Randy Kobes [EMAIL PROTECTED]
  Reviewed by:  dougm
  
  Revision  ChangesPath
  1.5   +2 -0  modperl/src/modules/win32/mod_perl.def
  
  Index: mod_perl.def
  ===
  RCS file: /home/cvs/modperl/src/modules/win32/mod_perl.def,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- mod_perl.def  2001/07/09 15:03:16 1.4
  +++ mod_perl.def  2001/12/11 03:29:42 1.5
  @@ -14,3 +14,5 @@
  perl_call_handler
  perl_clear_symtab
  perl_get_startup_pool
  +   perl_perl_merge_dir_config
  +   array_header2avrv
  
  
  
  1.6   +2 -0  modperl/apaci/mod_perl.exp
  
  Index: mod_perl.exp
  ===
  RCS file: /home/cvs/modperl/apaci/mod_perl.exp,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- mod_perl.exp  2001/07/09 15:03:28 1.5
  +++ mod_perl.exp  2001/12/11 03:29:42 1.6
  @@ -13,3 +13,5 @@
   perl_call_handler
   perl_clear_symtab
   perl_get_startup_pool
  +perl_perl_merge_dir_config
  +array_header2avrv
  
  
  
  1.624 +4 -0  modperl/Changes
  
  Index: Changes
  ===
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.623
  retrieving revision 1.624
  diff -u -r1.623 -r1.624
  --- Changes   2001/11/15 08:23:40 1.623
  +++ Changes   2001/12/11 03:29:43 1.624
  @@ -10,6 +10,10 @@
   
   =item 1.26_01-dev
   
  +added perl_perl_merge_dir_config and array_header2avrv symbols to
  +mod_perl.def for win32 and mod_perl.exp for aix.
  +[Randy Kobes [EMAIL PROTECTED]]
  +
   INSTALL.apaci: added an explanation of how perl has to be built in
   order to use DSO without problems (copied from the guide) based on
   email from Doug.  [Stas Bekman [EMAIL PROTECTED]]
  
  
  



cvs commit: modperl-2.0/src/modules/perl modperl_perl.c

2001-12-10 Thread dougm

dougm   01/12/10 20:22:32

  Modified:src/modules/perl modperl_perl.c
  Log:
  call END blocks before interpreter shutdown
  
  Revision  ChangesPath
  1.9   +4 -0  modperl-2.0/src/modules/perl/modperl_perl.c
  
  Index: modperl_perl.c
  ===
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.c,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- modperl_perl.c2001/11/02 02:59:32 1.8
  +++ modperl_perl.c2001/12/11 04:22:32 1.9
  @@ -100,6 +100,10 @@
   PL_origenviron = environ;
   #endif
   
  +if (PL_endav) {
  +modperl_perl_call_list(pTHX_ PL_endav, END);
  +}
  +
   perl_destruct(perl);
   
   /* XXX: big bug in 5.6.1 fixed in 5.7.2+
  
  
  



cvs commit: modperl-2.0/t SMOKE.PL

2001-12-10 Thread stas

stas01/12/10 21:13:07

  Modified:tSMOKE.PL
  Log:
  - use Apache::TestSmokePerl for t/SMOKE.PL in mod_perl
  
  Revision  ChangesPath
  1.2   +2 -2  modperl-2.0/t/SMOKE.PL
  
  Index: SMOKE.PL
  ===
  RCS file: /home/cvs/modperl-2.0/t/SMOKE.PL,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- SMOKE.PL  2001/12/10 06:29:28 1.1
  +++ SMOKE.PL  2001/12/11 05:13:06 1.2
  @@ -7,6 +7,6 @@
   use lib $FindBin::Bin/../Apache-Test/lib;
   use lib $FindBin::Bin/../lib;
   
  -use Apache::TestSmoke ();
  +use Apache::TestSmokePerl ();
   
  -Apache::TestSmoke-new(@ARGV)-run;
  +Apache::TestSmokePerl-new(@ARGV)-run;
  
  
  



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

2001-12-10 Thread stas

stas01/12/10 22:27:47

  Modified:lib/ModPerl Config.pm
  Log:
  - use the existing configuration in as_string
  
  Revision  ChangesPath
  1.7   +1 -1  modperl-2.0/lib/ModPerl/Config.pm
  
  Index: Config.pm
  ===
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Config.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- Config.pm 2001/12/11 05:09:43 1.6
  +++ Config.pm 2001/12/11 06:27:47 1.7
  @@ -28,7 +28,7 @@
   my $command = '';
   
   # httpd opts
  -my $test_config = Apache::TestConfig-new;
  +my $test_config = Apache::TestConfig-new({thaw=1});
   if (my $httpd = $test_config-{vars}-{httpd}) {
   $command = $httpd -V;
   $cfg .= \n\n*** $command\n;