perl-embperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From rich...@apache.org
Subject cvs commit: embperl/test/cmp Execute.htm
Date Sun, 27 Feb 2005 20:22:01 GMT
richter     2005/02/27 12:22:01

  Modified:    .        Changes.pod Embperl.pm TODO
               test/cmp Execute.htm
  Log:
  fix  when called from Registry script
  
  Revision  Changes    Path
  1.264     +3 -2      embperl/Changes.pod
  
  Index: Changes.pod
  ===================================================================
  RCS file: /home/cvs/embperl/Changes.pod,v
  retrieving revision 1.263
  retrieving revision 1.264
  diff -u -r1.263 -r1.264
  --- Changes.pod	27 Feb 2005 20:05:47 -0000	1.263
  +++ Changes.pod	27 Feb 2005 20:22:00 -0000	1.264
  @@ -5,7 +5,7 @@
        up on the error page. Reported by Dirk Melchers.
      - Report line number and file name in unstructures jump error messages.
        Requested by Michael Smith.
  -   - Fix sigsegv under solaris cause by NULL point in debug output.
  +   - Fixed sigsegv under solaris cause by NULL point in debug output.
      - Applied patches from Angus Lees to make Embperl compile and test on
        64Bit machines and avoid some compiler warnings.
      - Add pod for embpmsgid.pl from Angus Lees.
  @@ -26,7 +26,8 @@
      - Reimplemented SetupSession, CleanupSession and SetSessionCookie
        which can be used to access Embperl session data from outside,
        for example from mod_perl Authentication handler.
  -     
  +   - Fixed problem with undefined $req_rec when Embperl::Execute
  +     is called from a registry script. Reported by Martin Moss.     
   
   =head1 2.0rc2  21. November 2004
   
  
  
  
  1.198     +2 -0      embperl/Embperl.pm
  
  Index: Embperl.pm
  ===================================================================
  RCS file: /home/cvs/embperl/Embperl.pm,v
  retrieving revision 1.197
  retrieving revision 1.198
  diff -u -r1.197 -r1.198
  --- Embperl.pm	27 Feb 2005 20:05:47 -0000	1.197
  +++ Embperl.pm	27 Feb 2005 20:22:00 -0000	1.198
  @@ -107,6 +107,8 @@
       # when called inside a Embperl Request, Execute the component only
       return Embperl::Req::ExecuteComponent ($_ep_param, @_) if ($req) ;
   
  +    local $req_rec = Apache -> request if ($Embperl::modperl) ;
  +
       my $rc ;
       if (!ref $_ep_param)
           {
  
  
  
  1.132     +0 -2      embperl/TODO
  
  Index: TODO
  ===================================================================
  RCS file: /home/cvs/embperl/TODO,v
  retrieving revision 1.131
  retrieving revision 1.132
  diff -u -r1.131 -r1.132
  --- TODO	25 Feb 2005 08:06:21 -0000	1.131
  +++ TODO	27 Feb 2005 20:22:00 -0000	1.132
  @@ -17,8 +17,6 @@
   
   - EmbperlObject and ErrorDocument [Robert Noris 24.2.05]
   
  -- $req_rec setting when call under Registry [Martin Moss 22.3.05]
  -
   
   TODO for Embperl 2.1 and later
   
  
  
  
  1.8       +2 -2      embperl/test/cmp/Execute.htm
  
  Index: Execute.htm
  ===================================================================
  RCS file: /home/cvs/embperl/test/cmp/Execute.htm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- Execute.htm	25 Feb 2005 08:06:22 -0000	1.7
  +++ Execute.htm	27 Feb 2005 20:22:00 -0000	1.8
  @@ -122,10 +122,10 @@
   $_[1] = &lt;undef&gt; <br> 
   
   ^\$rec_rec  = Apache(::RequestRec)?=SCALAR\(0x
  -^\$\$rec_rec = \d+<br>
  +^\$\$rec_rec = -?\d+<br>
   
   ^Apache->request    = Apache(::RequestRec)?=SCALAR\(0x
  -^\$\{Apache->request\} = \d+<br>
  +^\$\{Apache->request\} = -?\d+<br>
   
   ^\${Apache->request} = \$\$req_rec \?  yes  
   
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org


Mime
View raw message