You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2001/07/09 09:49:10 UTC

cvs commit: embperl Changes.pod Makefile.PL README README.v2 epmain.c epnames.h

richter     01/07/09 00:49:10

  Modified:    .        Tag: Embperl2c Changes.pod Makefile.PL README
                        README.v2 epmain.c epnames.h
  Log:
  Embperl 1 source sync
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.129.4.26 +32 -3     embperl/Changes.pod
  
  Index: Changes.pod
  ===================================================================
  RCS file: /home/cvs/embperl/Changes.pod,v
  retrieving revision 1.129.4.25
  retrieving revision 1.129.4.26
  diff -u -r1.129.4.25 -r1.129.4.26
  --- Changes.pod	2001/06/25 08:15:59	1.129.4.25
  +++ Changes.pod	2001/07/09 07:49:01	1.129.4.26
  @@ -1,6 +1,6 @@
   =pod
   
  -=head1 2.0b3_dev
  +=head1 2.0b3 (BETA) 9. July 2001
   
      - correct package handling in EP1COMPAT mode
      - compiles now with sun-cc. Patches from Michael Stevens.
  @@ -101,8 +101,38 @@
        terminated with a semikolon. To let old code work, just wrap it into a do
        e.g. [+ do { my $a = $b + 5 ; $a } +]
   
  -=head1 1.3.2
  +=head1 1.3.4_dev 
   
  +   - Added method $r -> Espace for html & url escaping
  +   - URL escpage # to %23
  +   - use Content-Lenght HTTP Header instead of $ENV{CONTENT_LENGTH}
  +     when running under mod_perl and win32. This fixes a bug
  +     with POSTed data reported by Lukas Zapletal.
  +   - Display correct Apache module name in Makefile.PL when
  +     requesting path for Apache module. Patch from James Lee.
  +
  +=head1 1.3.3 (RELEASE)   6. Juni 2001
  +
  +   - fixes problem with cleanup and Perl 5.6.0+ which broke
  +     session management. Spotted by Lukas Zapletal and Andy Lim.
  +   - Improved Makefile.PL to catche more setup situation on
  +     Win 32.
  +   - Make $r -> Error settable to be able to reset Embperl's
  +     internal error flag.     
  +   - workaround for $r -> chdir_file not working correctly inside
  +     of Apache::Registry with ActiveState Perl, which caused
  +     make test to fail.
  +   - fixed SIGSEGVs that could occur on rare situations when
  +     multiple file not found errors are reported.
  +   - fixed problem with wrong setup of Content-Length header
  +     when running in CGI mode, with escmode = 0. Spotted by
  +     Edwin Ramirez.
  +   - fixed problem with nested dynamic tables and Execute.
  +   - added correct errror message for rcNotCompiledForModPerl.
  +     Spotted by Scott Chapman.
  +
  +=head1 1.3.2 (RELEASE)   16 May. 2001 
  +
      - Emulate the syntax => Text parameter of Embperl 2.0, which allows 
        to include pure text files any without interpretation. Requested
        by Kee Hinckley.
  @@ -144,7 +174,6 @@
        Spotted by Lukas Zapletal.
      - Perl search path (@INC) in make test is set to abosulte paths to be independend
        of directory changes that Apache might issue. Spotted by Randy Korbes.
  -
   
   =head1 1.3.1 (RELEASE)   13 Feb. 2001
   
  
  
  
  1.31.4.18 +1 -1      embperl/Makefile.PL
  
  Index: Makefile.PL
  ===================================================================
  RCS file: /home/cvs/embperl/Makefile.PL,v
  retrieving revision 1.31.4.17
  retrieving revision 1.31.4.18
  diff -u -r1.31.4.17 -r1.31.4.18
  --- Makefile.PL	2001/05/29 06:14:51	1.31.4.17
  +++ Makefile.PL	2001/07/09 07:49:03	1.31.4.18
  @@ -683,7 +683,7 @@
   	if (!grep (/$mod/, @modules))
   	    { # module not linked staticly
   	    $paths = $win32?$opt->{win32path}:$opt->{path} ;
  -	    $modfile = $win32?$opt->{win32file}:$opt->{file} ;
  +	    $modfile = $win32?$opt->{win32file}:$opt->{file}[0] ;
   	    $modfiletext = ($win32?$opt->{win32filetext}:$opt->{filetext}) || $modfile ;
   	    $found = 2 ;
   	    searchmod:
  
  
  
  1.19.6.10 +2 -2      embperl/README
  
  Index: README
  ===================================================================
  RCS file: /home/cvs/embperl/README,v
  retrieving revision 1.19.6.9
  retrieving revision 1.19.6.10
  diff -u -r1.19.6.9 -r1.19.6.10
  --- README	2001/05/15 14:19:36	1.19.6.9
  +++ README	2001/07/09 07:49:03	1.19.6.10
  @@ -9,7 +9,7 @@
   WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF 
   MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   
  -$Id: README,v 1.19.6.9 2001/05/15 14:19:36 richter Exp $
  +$Id: README,v 1.19.6.10 2001/07/09 07:49:03 richter Exp $
   
   
   ### !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! 
  @@ -22,7 +22,7 @@
   ### of smaller bugs and use it now in production environment on my own.
   ### But be carefull this release may still contain bugs.
   ###
  -### The current stable release is Embperl 1.3.2
  +### The current stable release is Embperl 1.3.3
   ###
   ### !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! 
   
  
  
  
  1.1.4.12  +2 -2      embperl/Attic/README.v2
  
  Index: README.v2
  ===================================================================
  RCS file: /home/cvs/embperl/Attic/README.v2,v
  retrieving revision 1.1.4.11
  retrieving revision 1.1.4.12
  diff -u -r1.1.4.11 -r1.1.4.12
  --- README.v2	2001/05/15 14:19:39	1.1.4.11
  +++ README.v2	2001/07/09 07:49:04	1.1.4.12
  @@ -9,7 +9,7 @@
   WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF 
   MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   
  -$Id: README.v2,v 1.1.4.11 2001/05/15 14:19:39 richter Exp $
  +$Id: README.v2,v 1.1.4.12 2001/07/09 07:49:04 richter Exp $
   
   
   ### !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! 
  @@ -22,7 +22,7 @@
   ### of smaller bugs and use it now in production environment on my own.
   ### But be carefull this release may still contain bugs.
   ###
  -### The current stable release is Embperl 1.3.2
  +### The current stable release is Embperl 1.3.3
   ###
   ### !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! 
   
  
  
  
  1.75.4.39 +15 -4     embperl/epmain.c
  
  Index: epmain.c
  ===================================================================
  RCS file: /home/cvs/embperl/epmain.c,v
  retrieving revision 1.75.4.38
  retrieving revision 1.75.4.39
  diff -u -r1.75.4.38 -r1.75.4.39
  --- epmain.c	2001/06/20 14:16:12	1.75.4.38
  +++ epmain.c	2001/07/09 07:49:05	1.75.4.39
  @@ -10,7 +10,7 @@
   #   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   #   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   #
  -#   $Id: epmain.c,v 1.75.4.38 2001/06/20 14:16:12 richter Exp $
  +#   $Id: epmain.c,v 1.75.4.39 2001/07/09 07:49:05 richter Exp $
   #
   ###################################################################################*/
   
  @@ -671,10 +671,21 @@
           dowarn = savewarn ;
           }
   
  -    sLen [0] = '\0' ;
  -    GetHashValue (r -> pEnvHash, "CONTENT_LENGTH", sizeof (sLen) - 1, sLen) ;
  +#ifdef APACHE
  +    if (r -> pApacheReq)
  +        {
  +        const char * sLength = table_get(r -> pApacheReq->headers_in, "Content-Length") ;
  +	len = sLength?atoi (sLength):0 ;
  +	}
  +    else
  +#endif
  +	{
  +	sLen [0] = '\0' ;
  +	GetHashValue (r -> pEnvHash, "CONTENT_LENGTH", sizeof (sLen) - 1, sLen) ;
  +	len = atoi (sLen) ;
  +	}
   
  -    if ((len = atoi (sLen)) == 0)
  +    if (len == 0)
           {
           SV * * ppSV = hv_fetch(r -> pEnvHash, "QUERY_STRING", sizeof ("QUERY_STRING") - 1, 0) ;  
           if (ppSV != NULL)
  
  
  
  1.19.4.10 +2 -1      embperl/epnames.h
  
  Index: epnames.h
  ===================================================================
  RCS file: /home/cvs/embperl/epnames.h,v
  retrieving revision 1.19.4.9
  retrieving revision 1.19.4.10
  diff -u -r1.19.4.9 -r1.19.4.10
  --- epnames.h	2001/06/12 18:28:56	1.19.4.9
  +++ epnames.h	2001/07/09 07:49:05	1.19.4.10
  @@ -10,7 +10,7 @@
   #   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   #   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   #
  -#   $Id: epnames.h,v 1.19.4.9 2001/06/12 18:28:56 richter Exp $
  +#   $Id: epnames.h,v 1.19.4.10 2001/07/09 07:49:05 richter Exp $
   #
   ###################################################################################*/
   
  @@ -194,6 +194,7 @@
   #define xDomTreeAttr		    EMBPERL_xDomTreeAttr		   
   #define xNoName			    EMBPERL_xNoName			   
   #define xOrderIndexAttr		    EMBPERL_xOrderIndexAttr		   
  +#define Escape		            EMBPERL_Escape		   
    
    
   #ifndef PERL_VERSION
  
  
  

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