perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/t/net/perl dirty-lib dirty-script.cgi dirty-test.cgi
Date Thu, 17 Sep 1998 17:09:44 GMT
dougm       98/09/17 10:09:44

  Modified:    .        Changes MANIFEST ToDo
               lib/Apache PerlRun.pm
               t/net/perl dirty-script.cgi dirty-test.cgi
  Added:       t/net/perl dirty-lib
  Log:
  Apache::PerlRun will now save/restore %INC to cure problem with
  "library" files that don't include a package delaration
  
  Revision  Changes    Path
  1.140     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.139
  retrieving revision 1.140
  diff -u -r1.139 -r1.140
  --- Changes	1998/09/17 16:34:11	1.139
  +++ Changes	1998/09/17 17:09:39	1.140
  @@ -8,6 +8,9 @@
   
   =item 1.15_01-dev
   
  +Apache::PerlRun will now save/restore %INC to cure problem with
  +"library" files that don't include a package delaration
  +
   global renames: $Apache::Server{Re}Starting -> $Apache::Server::{Re}Starting
   
   s/PERL_TIE_TABLES/PERL_TABLE_API/g
  
  
  
  1.36      +1 -0      modperl/MANIFEST
  
  Index: MANIFEST
  ===================================================================
  RCS file: /export/home/cvs/modperl/MANIFEST,v
  retrieving revision 1.35
  retrieving revision 1.36
  diff -u -r1.35 -r1.36
  --- MANIFEST	1998/09/01 17:12:51	1.35
  +++ MANIFEST	1998/09/17 17:09:40	1.36
  @@ -152,6 +152,7 @@
   t/net/perl/server_error.pl
   t/net/perl/dirty-script.cgi
   t/net/perl/dirty-test.cgi
  +t/net/perl/dirty-lib
   #t/net/perl/resolver.pl
   t/net/perl/io/redir.pl
   t/net/perl/io/perlio.pl
  
  
  
  1.84      +0 -2      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /export/home/cvs/modperl/ToDo,v
  retrieving revision 1.83
  retrieving revision 1.84
  diff -u -r1.83 -r1.84
  --- ToDo	1998/09/17 16:34:11	1.83
  +++ ToDo	1998/09/17 17:09:40	1.84
  @@ -3,8 +3,6 @@
                    (well, close to it anyhow)
   ---------------------------------------------------------------------------
   
  -- Apache::PerlRun should save/restore %INC
  -
   - <Perl> should report failed config
   
   - $ENV{PATH}
  
  
  
  1.6       +1 -0      modperl/lib/Apache/PerlRun.pm
  
  Index: PerlRun.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/lib/Apache/PerlRun.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- PerlRun.pm	1998/09/02 17:47:30	1.5
  +++ PerlRun.pm	1998/09/17 17:09:42	1.6
  @@ -167,6 +167,7 @@
   
       *0 = \$r->filename;
       $r->chdir_file;
  +    local %INC = %INC;
   
       my $eval = join '',
   		    'package ',
  
  
  
  1.3       +5 -0      modperl/t/net/perl/dirty-script.cgi
  
  Index: dirty-script.cgi
  ===================================================================
  RCS file: /export/home/cvs/modperl/t/net/perl/dirty-script.cgi,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- dirty-script.cgi	1998/05/08 02:40:51	1.2
  +++ dirty-script.cgi	1998/09/17 17:09:43	1.3
  @@ -1,4 +1,9 @@
   local $^W = 0;
  +use lib '.';
  +require "dirty-lib";
  +unless (defined(&not_ina_package) && not_ina_package()) {
  +    die "%INC save/restore broken";
  +}
   
   print "Content-type: text/plain\n\n";
   
  
  
  
  1.2       +6 -0      modperl/t/net/perl/dirty-test.cgi
  
  Index: dirty-test.cgi
  ===================================================================
  RCS file: /export/home/cvs/modperl/t/net/perl/dirty-test.cgi,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- dirty-test.cgi	1998/04/26 00:16:40	1.1
  +++ dirty-test.cgi	1998/09/17 17:09:43	1.2
  @@ -1,3 +1,9 @@
  +use lib '.';
  +require "dirty-lib";
  +unless (defined(&not_ina_package) && not_ina_package()) {
  +    die "%INC save/restore broken";
  +}
  +
   package Apache::ROOT::dirty_2dperl::dirty_2dscript_2epl;
   
   use Apache::test;
  
  
  
  1.1                  modperl/t/net/perl/dirty-lib
  
  Index: dirty-lib
  ===================================================================
  sub not_ina_package {
      1;
  }
  
  1;
  
  
  

Mime
View raw message