te...

richter Wed, 20 Sep 2023 20:39:17 -0700

Author: richter
Date: Thu Sep 21 03:39:10 2023
New Revision: 1912443

URL: http://svn.apache.org/viewvc?rev=1912443&view=rev
Log:
Apply all patches from debian bookworm, see 
https://sources.debian.org/patches/libembperl-perl/2.5.0-17


Added:
    perl/embperl/trunk/.gitignore
    perl/embperl/trunk/test/cmp/includeerr2.htm520
Modified:
    perl/embperl/trunk/   (props changed)
    perl/embperl/trunk/Changes.pod
    perl/embperl/trunk/Embperl.pm
    perl/embperl/trunk/Embperl.pod
    perl/embperl/trunk/Embperl/Form.pm
    perl/embperl/trunk/Embperl/Form/Control.pm
    perl/embperl/trunk/Embperl/Form/Control/age.pm
    perl/embperl/trunk/Embperl/Form/Control/checkbox.pm
    perl/embperl/trunk/Embperl/Form/Control/datetime.pm
    perl/embperl/trunk/Embperl/Form/Control/duration.pm
    perl/embperl/trunk/Embperl/Form/Control/grid.pm
    perl/embperl/trunk/Embperl/Form/Control/number.pm
    perl/embperl/trunk/Embperl/Form/Control/price.pm
    perl/embperl/trunk/Embperl/Form/Control/table.pm
    perl/embperl/trunk/Embperl/Form/DataSource.pm
    perl/embperl/trunk/Embperl/Form/Validate.pm
    perl/embperl/trunk/Embperl/Mail.pm
    perl/embperl/trunk/Embperl/Object.pm
    perl/embperl/trunk/Embperl/Session.pm
    perl/embperl/trunk/Embperl/Syntax.pm
    perl/embperl/trunk/Embperl/Syntax/Embperl.pm
    perl/embperl/trunk/Embperl/Syntax/HTML.pm
    perl/embperl/trunk/Embperl/Syntax/POD.pm
    perl/embperl/trunk/Faq.pod
    perl/embperl/trunk/Features.pod
    perl/embperl/trunk/FeaturesD.pod
    perl/embperl/trunk/Intro.pod
    perl/embperl/trunk/Makefile.PL
    perl/embperl/trunk/Old.xs
    perl/embperl/trunk/TOC.pod
    perl/embperl/trunk/driver/eplibxslt.MAKEPL
    perl/embperl/trunk/eg/README
    perl/embperl/trunk/eg/web/epwebapp.pl
    perl/embperl/trunk/epmain.c
    perl/embperl/trunk/epnames.h
    perl/embperl/trunk/eputil.c
    perl/embperl/trunk/mod_embperl.c
    perl/embperl/trunk/test.pl
    perl/embperl/trunk/test/cmp/Execute.htm
    perl/embperl/trunk/test/cmp/div.asc
    perl/embperl/trunk/test/cmp/epobase.htm
    perl/embperl/trunk/test/cmp/errorfirstrun.htm
    perl/embperl/trunk/test/cmp/upload.htm
    perl/embperl/trunk/test/cmp/varerr.htm56
    perl/embperl/trunk/test/html/EmbperlObject/epodiv.htm
    perl/embperl/trunk/test/html/delrdsess.htm
    perl/embperl/trunk/test/html/delsess.htm
    perl/embperl/trunk/test/html/delwrsess.htm
    perl/embperl/trunk/test/html/div.htm
    perl/embperl/trunk/test/html/execgetsess.htm
    perl/embperl/trunk/test/html/getbsess.htm
    perl/embperl/trunk/test/html/getdelsess.htm
    perl/embperl/trunk/test/html/getsess.htm
    perl/embperl/trunk/test/html/match/div.asc
    perl/embperl/trunk/test/html/match/div.htm
    perl/embperl/trunk/test/html/mdatsess.htm
    perl/embperl/trunk/test/html/nph/div.htm
    perl/embperl/trunk/test/html/ofunc/div.htm
    perl/embperl/trunk/test/html/opmask/opmasktrap.htm
    perl/embperl/trunk/test/html/plain.htm
    perl/embperl/trunk/test/html/safe/safe.htm
    perl/embperl/trunk/test/html/setbadsess.htm
    perl/embperl/trunk/test/html/setunknownsess.htm
    perl/embperl/trunk/test/html/sidurl/getsdaturlsess.htm
    perl/embperl/trunk/test/html/sidurl/geturlsess.htm
    perl/embperl/trunk/test/html/upload.htm

Propchange: perl/embperl/trunk/
------------------------------------------------------------------------------
--- svn:ignore (original)
+++ svn:ignore Thu Sep 21 03:39:10 2023
@@ -14,3 +14,23 @@ Embperl.bs
 *.opt
 *.dsp
 *.dsw
+embperl.code-workspace
+.vscode/
+MYMETA.json
+MYMETA.yml
+embpfastcgi.pl
+embpfastcgi.test.pl
+embpmsgid.pl
+epocgi.bat
+epocgi.pl
+epocgi.test.pl
+test/conf/config.pl
+xs/
+xsbuilder/tables/
+*.o
+*.old
+*.orig
+*.rej
+patches/
+Embperl.bso
+test/tmp/

Added: perl/embperl/trunk/.gitignore
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/.gitignore?rev=1912443&view=auto
==============================================================================
--- perl/embperl/trunk/.gitignore (added)
+++ perl/embperl/trunk/.gitignore Thu Sep 21 03:39:10 2023
@@ -0,0 +1,32 @@
+.svn
+Cmd.c
+DOM.c
+Makefile
+embpexec.pl
+embpexec.bat
+embpcgi.pl
+embpcgi.bat
+embpcgi.test.pl
+pm_to_blib
+blib
+Embperl.c
+Embperl.bs
+*.ncb
+*.opt
+*.dsp
+*.dsw
+embperl.code-workspace
+.vscode/
+MYMETA.json
+MYMETA.yml
+embpfastcgi.pl
+embpfastcgi.test.pl
+embpmsgid.pl
+epocgi.bat
+epocgi.pl
+epocgi.test.pl
+test/conf/config.pl
+xs/
+xsbuilder/tables/
+*.o
+*.old

Modified: perl/embperl/trunk/Changes.pod
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Changes.pod?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Changes.pod (original)
+++ perl/embperl/trunk/Changes.pod Thu Sep 21 03:39:10 2023
@@ -1,6 +1,8 @@
 =pod
 
-=head 2.5.0  16. March 2014
+=encoding iso8859-1
+
+=head1 2.5.0  16. March 2014
 
     - Do not clear old code before compiling a Embperl page
       in Perl >= 5.14.x because it causes seg faults. This
@@ -59,7 +61,7 @@
     
     Adaptions to Perl 5.14/16 were sponsored by NUREG GmbH
 
-=head 2.4.0  4. Oct 2010
+=head1 2.4.0  4. Oct 2010
 
     - Support for CGI.pm 3.43 (included within Perl 5.10.1)
       for file uplaods. CGI.pm < 2.43 is not supported anymore.

Modified: perl/embperl/trunk/Embperl.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl.pm (original)
+++ perl/embperl/trunk/Embperl.pm Thu Sep 21 03:39:10 2023
@@ -342,7 +342,7 @@ sub get_multipart_formdata
        
        $self -> log ("[$$]FORM: $_=$fdat->{$_}\n") if ($dbgForm) ; 
 
-       if (ref($fdat->{$_}) eq 'Fh') 
+       if (ref($fdat->{$_}) eq 'Fh' or ref($fdat->{$_}) =~ /File::Temp/) 
            {
            $fdat->{"-$_"} = $cgi -> uploadInfo($fdat->{$_}) ;
            }

Modified: perl/embperl/trunk/Embperl.pod
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl.pod?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl.pod (original)
+++ perl/embperl/trunk/Embperl.pod Thu Sep 21 03:39:10 2023
@@ -136,7 +136,7 @@ of different documents and cleanup after
 necessary. For example, if you want to recursively call an Embperl document 
via Execute.
 
 There is a second reason to use the [* Perl code *] instead of the [- Perl 
Code -]. If you like
-to use perl's control structures. Perl's if, while, for etc. can B<not> span 
mulitple [- Perl Code -]
+to use perl's control structures. Perl's if, while, for etc. can B<not> span 
multiple [- Perl Code -]
 blocks, but it can span multiple [* Perl Code *]. 
 
   Example:
@@ -259,21 +259,21 @@ first B<Arg> accordingly.
 =item B<next>
 
 Inside of looks same as Perl next statement. You could also use the following
-syntax, which allows you to add an addtional condition (or any other Perl 
code):
+syntax, which allows you to add an additional condition (or any other Perl 
code):
 
     [* next if ($foo) *]
 
 =item B<last>
 
 Inside of looks same as Perl last statement. You could also use the following
-syntax, which allows you to add an addtional condition (or any other Perl 
code):
+syntax, which allows you to add an additional condition (or any other Perl 
code):
 
     [* last if ($foo) *]
 
 =item B<redo>
 
 Inside of looks same as Perl redo statement. You could also use the following
-syntax, which allows you to add an addtional condition (or any other Perl 
code):
+syntax, which allows you to add an additional condition (or any other Perl 
code):
 
     [* redo if ($foo) *]
 
@@ -424,7 +424,7 @@ Output to the page output
 
 =item pre
 
-Same as C<out>, but suround with a <pre> tag. This is the default, if
+Same as C<out>, but surrounded with a <pre> tag. This is the default, if
 the output parameter is omitted.
 
 =item log
@@ -828,10 +828,10 @@ together.
 Turn HTML and URL escaping on and off.  The default is on ($escmode =
 3).
 
-B<NOTE:> Normaly you can disable escaping by preceding the item that
+B<NOTE:> Normally you can disable escaping by preceding the item that
 normally is escaped with a backslash. While this is a handy thing, it could
 be very dangerous in situations, where content that is inserted by some
-user is redisplayed, because they can enter arbitrary HTML and preceed them
+user is redisplayed, because they can enter arbitrary HTML and precede them
 with a backslash to avoid correct escaping when their input is redisplayed
 again. To avoid this problem, add 4 to the values below. This will cause
 Embperl to ignore the backslash when it does output escaping at all.
@@ -878,7 +878,7 @@ B<SEE ALSO:> Configuration directive EMB
 
 This variable is only available when running under control of
 mod_perl.  It contains the request record needed to access the Apache
-server API.  See B<perldoc Apache> for more information.
+server API.  See B<perldoc Apache2::RequestRec> for more information.
 
 =head2 LOG
 
@@ -986,7 +986,7 @@ install Apache::SessionX or set
     PerlSetEnv EMBPERL_SESSION_HANDLER_CLASS "Embperl::Session"
 
 to get the old behaviour. If you have Apache::SessionX installed, you
-don't have to make addtional configuration, otherwise you must do the following
+don't have to make additional configuration, otherwise you must do the 
following
 things. You are also able to override the Apache::SessionX defaults, by
 using the following parameters:
 
@@ -1127,7 +1127,7 @@ a Embperl::Req object, which is passed a
 
 =head2 Embperl::Req::RefreshSession / $r -> RefreshSession [1.3b6+]
 
-Triggers a resend of the cookie. Normaly the cookie is only send the first 
time.
+Triggers a resend of the cookie. Normally the cookie is only sent the first 
time.
 If called as a method C<$r> must be 
 a Embperl::Req object, which is passed as first parameter to every Embperl 
page in @_ .
 
@@ -1349,7 +1349,7 @@ data from forms should be validated. Thi
 This module is able to do client side verification by generation JavaScript 
code 
 and server side verification by providing a Perl method to validate the data.
 Embperl::Form::Validate comes with a lot of standard tests and you can extent 
it
-by providing your own test classes, which can inherit from the shiped test 
classes.
+by providing your own test classes, which can inherit from the shipped test 
classes.
 
 For further details see perldoc 
L<Embperl::Form::Validate|EmbperlFormValidate.pod>.
 
@@ -1538,7 +1538,7 @@ messages and/or all error objects.
     -]
     
     [$if @errors$]
-        The following errors had occured:<br>
+        The following errors had occurred:<br>
         [$foreach $err (@errors)$]
             [+ $err +]<br>         
         [$endforeach$]
@@ -1549,7 +1549,7 @@ In case you call C<die> inside the execu
 to C<die> instead of a string this will also show up in @errors. The last 
object 
 passed to C<die> is also available via C<$epreq -> errobj>.
 
-C<$epreq -> error> can be used to test if an error occured so far during the
+C<$epreq -> error> can be used to test if an error occurred so far during the
 current request. You can also set C<$epreq -> error> to false to reset 
Embperl's
 internal error condition.
 
@@ -1577,7 +1577,7 @@ If you specify $ReturnField the value of
 as B<Return-Path>. Usually, this will be the field where the user enters his
 e-mail address in the form.
 
-If you specifiy the following example code as the action in your form
+If you specify the following example code as the action in your form
 
   <FORM ACTION="x/feedback.htm" METHOD="POST"
         ENCTYPE="application/x-www-form-urlencoded">
@@ -1625,7 +1625,7 @@ when running under mod_perl).
 
 =head1 Performance
 
-To get the best performace from Embperl, it is necessary to restrict
+To get the best performance from Embperl, it is necessary to restrict
 logging to a minimum.  You can drastically slow down Embperl if you
 enable all logging options.  (This is why `make test' takes a while to
 run.)  You should B<never> enable B<dbgFlushOutput> or B<dbgFlushLog>

Modified: perl/embperl/trunk/Embperl/Form.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form.pm (original)
+++ perl/embperl/trunk/Embperl/Form.pm Thu Sep 21 03:39:10 2023
@@ -1345,21 +1345,21 @@ Example:
 
 =item * classdiv
 
-Gives the CSS class of the DIV arround the form. Default cTableDiv.
+Gives the CSS class of the DIV around the form. Default cTableDiv.
 
 =item * checkitems
 
-If set to true, allow to call the function diff_checkitems after the data is
+If set to true, allows one to call the function diff_checkitems after the data 
is
 posted and see which form fields are changed.
 
 =item * control_packages
 
-Arrayref with package names to search for form controls. Alternativly you can
+Arrayref with package names to search for form controls. Alternatively you can
 overwrite the method get_control_packages.
 
 =item * datasrc_packages
 
-Arrayref with package names to search for form data source modules. 
Alternativly you can
+Arrayref with package names to search for form data source modules. 
Alternatively you can
 overwrite the method get_datasrc_packages.
 
 

Modified: perl/embperl/trunk/Embperl/Form/Control.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control.pm Thu Sep 21 03:39:10 2023
@@ -844,7 +844,7 @@ Specifies the name of the control
 Will be used as label for the control, if not given
 'name' is used as default.
 
-Normaly the the name and text parameters are processed
+Normally the the name and text parameters are processed
 by the method C<convert_label> of the C<Embperl::Form>
 object. This method can be overwritten, to allow translation etc.
 

Modified: perl/embperl/trunk/Embperl/Form/Control/age.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/age.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/age.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/age.pm Thu Sep 21 03:39:10 2023
@@ -143,9 +143,9 @@ Embperl::Form::Control::age - A age inpu
 
 =head1 DESCRIPTION
 
-Used to create a age input control inside an Embperl Form.
+Used to create an age input control inside an Embperl Form.
 Will format date as days:hours:minutes from current time.
-Optionaly it can display an unit after the input field.
+Optionally it can display an unit after the input field.
 See Embperl::Form on how to specify parameters.
 
 =head2 PARAMETER

Modified: perl/embperl/trunk/Embperl/Form/Control/checkbox.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/checkbox.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/checkbox.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/checkbox.pm Thu Sep 21 03:39:10 2023
@@ -247,7 +247,7 @@ Gives the value for the checkbox.
 
 %%%name%%% is replaced by $fdat{<name>}, where <name> is the value that
 is given with name parameter. Is is especially useful inside of grids
-where the actual name of the html control is computed dynamicly.
+where the actual name of the html control is computed dynamically.
 
 =head3 class
 

Modified: perl/embperl/trunk/Embperl/Form/Control/datetime.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/datetime.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/datetime.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/datetime.pm Thu Sep 21 03:39:10 2023
@@ -316,7 +316,7 @@ Used to create a datetime input control
 Will format number as a date/time.
 See Embperl::Form on how to specify parameters.
 
-Datetime format in %fdat is excpected as YYYYMMTTHHMMSSZ
+Datetime format in %fdat is expected as YYYYMMTTHHMMSSZ
 
 =head2 PARAMETER
 

Modified: perl/embperl/trunk/Embperl/Form/Control/duration.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/duration.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/duration.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/duration.pm Thu Sep 21 03:39:10 2023
@@ -154,6 +154,8 @@ __END__
 
 =pod
 
+=encoding iso8859-1
+
 =head1 NAME
 
 Embperl::Form::Control::price - A price input control with optional unit 
inside an Embperl Form
@@ -172,7 +174,7 @@ Embperl::Form::Control::price - A price
 
 Used to create a price input control inside an Embperl Form.
 Will format number as a money ammout.
-Optionaly it can display an unit after the input field.
+Optionally it can display an unit after the input field.
 See Embperl::Form on how to specify parameters.
 
 =head2 PARAMETER

Modified: perl/embperl/trunk/Embperl/Form/Control/grid.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/grid.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Thu Sep 21 03:39:10 2023
@@ -758,7 +758,7 @@ string if set.
 
 =head3 line2
 
-field defintion wich is show in a second line, full width.
+field definition which is show in a second line, full width.
 
 =head3  disable_controls
 
@@ -786,10 +786,10 @@ If > 1, column number will set to the ro
 
 =head3 flat
 
-This can be used for readonly view of grid. Normaly readonly view will show
-the content as one large string. The flat attribute can contain a semikolon
-delimited list of fields that should be show in readony view. That allows
-to selectivly show fields in readonly view. 
+This can be used for readonly view of grid. Normally readonly view will show
+the content as one large string. The flat attribute can contain a semicolon
+delimited list of fields that should be shown in readony view. That allows
+to selectively show fields in readonly view.
 This can be used to show a readonly view of a grid inside of another grid.
 
 =head3 flatopt

Modified: perl/embperl/trunk/Embperl/Form/Control/number.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/number.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/number.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/number.pm Thu Sep 21 03:39:10 2023
@@ -187,7 +187,7 @@ Embperl::Form::Control::number - A numer
 =head1 DESCRIPTION
 
 Used to create a numeric input control inside an Embperl Form.
-Optionaly it can display an unit after the input field.
+Optionally it can display an unit after the input field.
 See Embperl::Form on how to specify parameters.
 
 =head2 PARAMETER

Modified: perl/embperl/trunk/Embperl/Form/Control/price.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/price.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/price.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/price.pm Thu Sep 21 03:39:10 2023
@@ -139,6 +139,8 @@ __END__
 
 =pod
 
+=encoding iso8859-1
+
 =head1 NAME
 
 Embperl::Form::Control::price - A price input control with optional unit 
inside an Embperl Form
@@ -157,7 +159,7 @@ Embperl::Form::Control::price - A price
 
 Used to create a price input control inside an Embperl Form.
 Will format number as a money ammout.
-Optionaly it can display an unit after the input field.
+Optionally it can display an unit after the input field.
 See Embperl::Form on how to specify parameters.
 
 =head2 PARAMETER

Modified: perl/embperl/trunk/Embperl/Form/Control/table.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/table.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/table.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/table.pm Thu Sep 21 03:39:10 2023
@@ -263,7 +263,7 @@ the hash ref and the text to display as
 email and phone will be display on the first line with headings
 'E-Mail Address' and 'Phone' and foo and bar will be displayed
 on the second line for each entry.
-In case your data is an array of arrays you have to specifiy the
+In case your data is an array of arrays you have to specify the
 array index instead of the hash key name.
 
 It is possible to add additional information. One entry might
@@ -271,34 +271,34 @@ contain the following entries:
 
 =over
 
-=item 0
+=item C<0>
 
 Key for into data hashref
 
-=item 1
+=item C<1>
 
 Text to display
 
-=item 2
+=item C<2>
 
-Colspan (how many colums this cell should span)
+Colspan (how many columns this cell should span)
 
-=item 3
+=item C<3>
 
 If set a control is displayed instead of a text. Must contain:
 
 radio,<name>,<value> or checkbox,<name>,<value>
 
-=item 4
+=item C<4>
 
 Display as link. This item contains the name of the key in the data hashref
 that holds the href.
 
-=item 5
+=item C<5>
 
 target for link
 
-=item 6
+=item C<6>
 
 Name of filter function. The value of the cell is process through this filter.
 Filter functions are passed as hashref of subs in the parameter 'filters' .

Modified: perl/embperl/trunk/Embperl/Form/DataSource.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/DataSource.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/DataSource.pm (original)
+++ perl/embperl/trunk/Embperl/Form/DataSource.pm Thu Sep 21 03:39:10 2023
@@ -283,8 +283,8 @@ returns the values and options. Must be
 
 =head3 get_id_from_value
 
-returns an id for a given value. This allow to have an id form an value/option
-pair which is not excat the same as the value. This is used in json requests
+returns an id for a given value. This allows one to have an id form a 
value/option
+pair which is not exactly the same as the value. This is used in json requests
 for example for selectdyn control.
 
 =head3 get_datasource_controls 

Modified: perl/embperl/trunk/Embperl/Form/Validate.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate.pm Thu Sep 21 03:39:10 2023
@@ -30,6 +30,8 @@ BEGIN
 
 $VERSION = '2.5.0' ;
 
+=encoding iso8859-1
+
 =head1 NAME
 
 Embperl::Form::Validate - Form validation with server- and client-side support.
@@ -180,7 +182,7 @@ It defaults to %fdat of the current Embp
 
 =item $pref
 
-can contain addtional information for the validation process.
+can contain additional information for the validation process.
 At the moment the keys C<language> and C<default_language>
 are recognized. C<language> defaults to the language set by
 Embperl. C<default_language> defaults to the one given with C<new>.
@@ -190,7 +192,7 @@ Embperl. C<default_language> defaults to
 The method verifies the content $fdat according to the rules given 
 to the Embperl::Form::Validate
 constructor and added by the add_rule() method and returns an 
-array refernce to error information. If there is no error it
+array reference to error information. If there is no error it
 returns undef. Each element of the returned array contains a hash with
 the following keys:
 
@@ -799,7 +801,7 @@ without a dash are tests to perform.
 gives the key in the passed form data hash which should be tested. -key
 is normally the name given in the HTML name attribute within a form field.
 C<-key> can also be a arrayref, in which case B<only one of> the given keys
-must statisfy the following test to succeed.
+must satisfy the following test to succeed.
 
 =item -key_break
 
@@ -815,10 +817,10 @@ hash with multiple languages, e.g.
 =item -type
 
 specfify to not use the standard tests, but the ones for a special type.
-For example there is a type C<Number> which will replaces all the comparsions
-by numeric ones instead of string comparisions. You may add your own types
+For example there is a type C<Number> which will replace all the comparisons
+by numeric ones instead of string comparisons. You may add your own types
 by writing a module that contains the necessary test and dropping it under
-Embperl::Form::Validate::<Typename>. The -type directive also can verfiy
+Embperl::Form::Validate::<Typename>. The -type directive also can verify
 that the given data has a valid format for the type.
 
 The following types are available:
@@ -891,14 +893,14 @@ make sure to send them back, so they can
 
 Used to give messages which should be used when the test fails. This message
 overrides the standard messages provided by Embperl::Form::Validate and
-by Embperls message management. Can also be a hash with messages for multiple
-languages. The -msg parameter must preceed the test for which it should be
+by Embperl's message management. Can also be a hash with messages for multiple
+languages. The -msg parameter must precede the test for which it should be
 displayed. You can have multiple different messages for different tests, e.g.
 
        [
        -key        => 'email',
        -name       => 'E-Mail-Address',
-       emptyok     => 1,                   # it's ok to leave this field empty 
(in this case the following tests are skiped)
+       emptyok     => 1,                   # it's ok to leave this field empty 
(in this case the following tests are skipped)
          
        -msg => 'The E-Mail-Address is invalid.',
        matches_regex => '(^[^ <>()@¡-ÿ]+@[^ <>()@¡-ÿ]+\.[a-zA-Z]{2,3}$)', 
@@ -962,8 +964,8 @@ The following test are currently defined
 
 Value must be the same as in field given as argument. This is useful
 if you want for example verify that two passwords are the same. The 
-Text displayed to the user for the second field maybe added to the argument
-separeted by a colon. Example:
+Text displayed to the user for the second field may be added to the argument
+separated by a colon. Example:
 
   $epf = Embperl::Form::Validate -> new (
         [

Modified: perl/embperl/trunk/Embperl/Mail.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Mail.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Mail.pm (original)
+++ perl/embperl/trunk/Embperl/Mail.pm Thu Sep 21 03:39:10 2023
@@ -234,7 +234,7 @@ Array ref of additional mail headers
 =item headerencoding (2.0b9+)
 
 Tells Embperl::Mail which charset definition to include in any header
-that contains character code 128-255 and therfore needs encoding. 
+that contains character code 128-255 and therefore needs encoding.
 Defaults to iso-8859-1. Pass
 empty string to turn encoding of header fields of.
 

Modified: perl/embperl/trunk/Embperl/Object.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Object.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Object.pm (original)
+++ perl/embperl/trunk/Embperl/Object.pm Thu Sep 21 03:39:10 2023
@@ -459,9 +459,9 @@ object-oriented concepts to be utilised
 within the "rapid application development" model of Perl and HTML.
 
 
-I<Embperl::Object> is basicly a I<mod_perl> handler or could be invoked
+I<Embperl::Object> is basically a I<mod_perl> handler or could be invoked
 offline and helps you to
-build a whole page out of smaller parts. Basicly it does the following:
+build a whole page out of smaller parts. Basically it does the following:
 
 When a request comes in, a page, which name is specified by 
L<EMBPERL_OBJECT_BASE>, is
 searched in the same directory as the requested page. If the pages isn't 
found, 
@@ -499,9 +499,9 @@ Methods can be ordinary Perl sub's (defi
 
 The runtime configuration is done by setting environment variables,
 in your web
-server's configuration file. Basicly the configuration is the same as
+server's configuration file. Basically the configuration is the same as
 for normal Embperl. All Embperl configuration directives also applies
-to Embperl::Object. There are a few addtional configuration directives
+to Embperl::Object. There are a few additional configuration directives
 listed below. Addtionaly you have to set the C<PerlHandler> to
 C<Embperl::Object> when running under mod_perl or use C<epocgi.pl>
 instead of C<embpcgi.pl> when running as CGI Script.
@@ -549,7 +549,7 @@ Filename of the application object. The
 the application object. The must be no package name given (as the package is 
set
 by Embperl::Object), but the @ISA should point to Embperl::App.
 If set this file is searched through the same search path as any content file.
-After a successfull load the init method is called with the Embperl request 
object
+After a successful load the init method is called with the Embperl request 
object
 as parameter. The init method can change the parameters inside the request 
object
 to influence the current request.
 

Modified: perl/embperl/trunk/Embperl/Session.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Session.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Session.pm (original)
+++ perl/embperl/trunk/Embperl/Session.pm Thu Sep 21 03:39:10 2023
@@ -85,7 +85,7 @@ a derived class:
     DataSource => 'dbi:Oracle:db' 
     };
 
-NOTE: HTML::Embperl::Session will require the nessecary additional perl 
modules for you.
+NOTE: HTML::Embperl::Session will require the necessary additional perl 
modules for you.
 
 
 =head2 Addtional Methods
@@ -94,7 +94,7 @@ NOTE: HTML::Embperl::Session will requir
 
 =item setid
 
-Set the session id for futher accesses.
+Set the session id for further accesses.
 
 =item getid
 

Modified: perl/embperl/trunk/Embperl/Syntax.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Syntax.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Syntax.pm (original)
+++ perl/embperl/trunk/Embperl/Syntax.pm Thu Sep 21 03:39:10 2023
@@ -129,7 +129,7 @@ sub AddToRoot
 
 # 
---------------------------------------------------------------------------------
 #
-#   Adds code that is execute everytime after the compile of a document
+#   Adds code that is execute every time after the compile of a document
 #       start and end of the execution of a document
 #
 # 
---------------------------------------------------------------------------------
@@ -490,7 +490,7 @@ best thing is to take a look at the synt
 For example if you want to add new html tags, derive from 
I<Embperl::Syntax::HTML>,
 if you want to add new metacommands derive from 
I<Embperl::Syntax::EmbperlBlocks>.
 
-Some of the classes define addtionaly methods to easily add new tags. See the 
+Some of the classes define additional methods to easily add new tags. See the
 respective pod file, which methods are available for a certain class.
 
 I<Embperl::Syntax> defines the basic methods to create a syntax:
@@ -514,7 +514,7 @@ This gives you the possibility to add so
 at the beginning of a document (C<$initcode>), at the end of the document
 (C<$termcode>) or at compile time (C<$compiletimecode>). The three strings must
 be valid Perl code. See I<Embperl::Syntax::SSI> for an example. C<$procinfo>
-is a hashref that can consits of addtional processor infos (see below) for the
+is a hashref that can consits of additional processor infos (see below) for the
 document.
 
 =head2 $self -> GetRoot
@@ -549,7 +549,7 @@ with a dash:
 
 =item    '-lsearch' => 1
 
-Do an linear serach instead of a binary search. This is necessary if the 
+Do an linear search instead of a binary search. This is necessary if the
 tokens can't clearly separated.
 
 =item     '-defnodetype' => ntypText,
@@ -656,7 +656,7 @@ Processor info. Hashref with information
 The processor info gives information how to compile this token to valid
 code that can be executed later on by the processor. There could be
 information for multiple processors. At the moment only the I<embperl>
-processor is defined. Normaly you must not worry about different
+processor is defined. Normally you must not worry about different
 processor, because the syntax object knows inside that all procinfo is
 for the I<embperl> processor. I<procinfo> is a parameter to many methods,
 it is a hashref and can take the following items:
@@ -905,7 +905,7 @@ include the same specical values as C<pe
 
 =item switchcodetype => <1/2>
 
-1 means put the following code into normal code which is executed everytime 
the page is
+1 means put the following code into normal code which is executed every time 
the page is
 requested
 
 2 means put the following code put into code which is executed direct after 
compilation.

Modified: perl/embperl/trunk/Embperl/Syntax/Embperl.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Syntax/Embperl.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Syntax/Embperl.pm (original)
+++ perl/embperl/trunk/Embperl/Syntax/Embperl.pm Thu Sep 21 03:39:10 2023
@@ -65,7 +65,7 @@ Embperl::Syntax::Embperl - Embperl synta
 
 =head1 DESCRIPTION
 
-This module provides the default syntax for Embperl and include all defintions
+This module provides the default syntax for Embperl and include all definitions
 from EmbperlHTML and EmbperlBlocks.
 
 =head1 Author

Modified: perl/embperl/trunk/Embperl/Syntax/HTML.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Syntax/HTML.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Syntax/HTML.pm (original)
+++ perl/embperl/trunk/Embperl/Syntax/HTML.pm Thu Sep 21 03:39:10 2023
@@ -464,7 +464,7 @@ Processor info. See I<Embperl::Syntax> f
 
 =item $taginfo
 
-Addtional tag definitions. See I<Embperl::Syntax> for more infos.
+Additional tag definitions. See I<Embperl::Syntax> for more infos.
 
 =item $addsess
 

Modified: perl/embperl/trunk/Embperl/Syntax/POD.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Syntax/POD.pm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Syntax/POD.pm (original)
+++ perl/embperl/trunk/Embperl/Syntax/POD.pm Thu Sep 21 03:39:10 2023
@@ -750,7 +750,7 @@ to use it.
 
 =head1 TODO
 
-Documenation of the resulting XML format still has to be written...
+Documentation of the resulting XML format still has to be written...
 
 
 =head1 Methods

Modified: perl/embperl/trunk/Faq.pod
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Faq.pod?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Faq.pod (original)
+++ perl/embperl/trunk/Faq.pod Thu Sep 21 03:39:10 2023
@@ -254,7 +254,7 @@ The eaiest way is
         bt                      -> show the backtrace
 
 To get some more information it would be a good idea to compile Embperl with
-debugging infomation enabled. Therefor do
+debugging information enabled. Therefore do
 
 =head2 How do I build Embperl with debugging information
 
@@ -270,7 +270,7 @@ debugging infomation enabled. Therefor d
 
 =back
 
-now start the gdb as decribed before.
+now start the gdb as described before.
 
 
 
@@ -352,8 +352,8 @@ change the name on the logfile, the logf
 The problem (in this case) is, that Embperl init function ,(Init in epmain.c)
 calls OpenLog will an second argument of zero. Which will only save the
 filename. The log will actually opened on the first write to it (or at the
-start of the first request). At this time your Apache has alreay switch to
-user www. This is done to allow to change the logfile name before an
+start of the first request). At this time your Apache has already switch to
+user www. This is done to allow one to change the logfile name before a
 request, but after the init is already called (which is done when you or
 Apache "use" the module)
 
@@ -492,7 +492,7 @@ Unescaping.  They are so common, that an
 L<"Escaping & Unescaping"> is devoted to them.
 
 
-=head2 When I use a module inside a Embperl page, it behaves weired
+=head2 When I use a module inside an Embperl page, it behaves weird
 when the source changes.
 
 
@@ -528,7 +528,7 @@ when Apache is terminated. Out of these
 that is loaded via C<use> or C<require> is only loaded once and will never
 be reloaded, regardless if the source changes or not.
 
-So far this is just standard Perl. Things get's a little bit more difficult
+So far this is just standard Perl. Things get a little bit more difficult
 when running under mod_perl (only Unix), because Apache forks a set of child
 processes as necessary and from the moment they are forked, they run on their
 own and don't know of each other. So if a module is loaded at server startup
@@ -564,7 +564,7 @@ works most times (but not all modules ca
 of loaded modules increase, your sever will slow down, because of the stat it
 has to do for every module.
 
-=item * Use C<do> instead of C<require>. C<do> will execute your file everytime
+=item * Use C<do> instead of C<require>. C<do> will execute your file every 
time
 it is used. This also adds overhead, but this may be accpetable for small files
 or in a debugging environment. (B<NOTE:> Be sure to check C<$@> after a C<do>,
 because do works like C<eval>)
@@ -1078,7 +1078,7 @@ the middle of your Perl code). This Embp
     [- $var  = 1; <br>
         $foo = 2 -]
 
-permissable, so that you can enter Perl code while you mark up pages in an
+permissible, so that you can enter Perl code while you mark up pages in an
 editor, all at once.  In this example, Embperl would remove the
 unnecessary <br> tag and, therefore, make Perl happy. And if Perl is
 happy, we are all happy. 

Modified: perl/embperl/trunk/Features.pod
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Features.pod?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Features.pod (original)
+++ perl/embperl/trunk/Features.pod Thu Sep 21 03:39:10 2023
@@ -91,7 +91,7 @@ Offers flexible configuration options to
 
 =item *
 
-Fully integrated into Apache and mod_perl to acheive the best performance. 
+Fully integrated into Apache and mod_perl to achieve the best performance.
 Can also run as a free standing CGI-script, off-line or can be called from 
another Perl program.
 
 

Modified: perl/embperl/trunk/FeaturesD.pod
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/FeaturesD.pod?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/FeaturesD.pod (original)
+++ perl/embperl/trunk/FeaturesD.pod Thu Sep 21 03:39:10 2023
@@ -1,5 +1,7 @@
 =pod
 
+=encoding iso8859-1
+
 =head1 NAME
 
 Embperl::Features - Features von Embperl 2.0
@@ -10,7 +12,7 @@ Embperl::Features - Features von Embperl
 
 =item * 
 
-Erlaubt das Einbetten von Perlcode in HTML/XML und andere Text Dokumente. Der 
Perlcode wird
+Erlaubt das Einbetten von Perlcode in HTML/XML und andere Text-Dokumente. Der 
Perlcode wird
 im Server ausgeführt und das Ergebnis zum Browser geschickt. Alle
 verfügbaren Perl-Module können eingesetzt werden.
 
@@ -24,9 +26,9 @@ aufrufen, einbetten und von einander erb
 
 =item *
 
-Das standart Layout einer Website can einmal definiert werden und 
-I<Embperl::Object> sorgt dafür das die passenden Komponeten
-an die entsprechenden Stellen eingefügt werden. Die eigentlichen Seiten
+Das Standard-Layout einer Website kann einmal definiert werden und 
+I<Embperl::Object> sorgt dafür, dass die passenden Komponeten
+an den entsprechenden Stellen eingefügt werden. Die eigentlichen Seiten
 enthalten nur noch den tatsächlichen Inhalt und nicht gemeinsamme Elemente wie
 Kopf- und Fußbereich oder Navigationsleisten. Diese gemeinsammen Bereiche
 können dabei je Unterverzeichnis überschrieben werden.
@@ -39,16 +41,16 @@ MVC (Modell-View-Controller) Applikation
 ein Applikationsobjekt abgebildet werden, welches den weiteren Ablauf
 eines Requests beeinflussen und steuern kann, während die eigentlichen
 Seiten nur noch den Code zur Anzeige enthalten. 
-Für einfache Applikationen ist es jedoch, immer noch möglich allen Code 
+Für einfache Applikationen ist es jedoch immer noch möglich, allen Code 
 in die Seiten selbst einzubetten.
 
 
 =item *
 
-Der Quellentext für die einzelnen Komponenten kann aus unterschiedlichen 
Quellen, wie
+Der Quelltext für die einzelnen Komponenten kann aus unterschiedlichen 
Quellen, wie
 Dateisystem, Speicher oder dem Ergebnis eines Apache-Subrequest kommen. Ein 
Subrequest 
 erlaubt das Nachbearbeiten der Ausgabe von anderen Apache-Applikationen wie 
PHP, JSP,
-CGI-Skrips etc.
+CGI-Skripten, etc.
 
 
 =item *
@@ -78,43 +80,43 @@ Erlaubt das Zwischenspeichern (Cachen) v
 =item *
 
 Stellt verschiedenste Features für das Webumfeld zur Verfügung, wei z.B.
-dynamischen Tabellen, Formularfeldverarbeitung, HTML/URL-Kodierung etc.
+dynamischen Tabellen, Formularfeldverarbeitung, HTML-/URL-Kodierung etc.
 
 =item *
 
 Enthält ein Modul zur Überprüfung von Benutzereingaben in Formularfeldern.
 Damit kann mit der Defintion eines Regelsatz, sowohl die serverseitige
-wie auch die Clientseitige Überprüfung veranlasst werden.
+wie auch die clientseitige Überprüfung veranlasst werden.
 
 
 =item *
 
-Stellt Pro-Benutzer und Pro-Seite persitente Sessiondaten zur Verfügung.
-Dafür ist es lediglich nötig die Daten in einem spezielle Hash abzulegen.
+Stellt pro Benutzer und pro Seite persitente Sessiondaten zur Verfügung.
+Dafür ist es lediglich notwendig, die Daten in einem speziellen Hash abzulegen.
 
 
 =item *
 
-Bietet eine Reihe von Optionen zur Konfigurierung entsprechend 
+Bietet eine Reihe von Optionen zur Konfiguration entsprechend 
 den persönlichen Vorlieben und Bedürfnissen.
 
 =item *
 
 Vollständig integriert in Apache und mod_perl, um die beste
-Performance zu erreichen. Kann auch als CGI Skript laufen,
-Offline ausgeführt werden oder von anderem Perlprogrammen/-modulen
+Performance zu erreichen. Kann auch als CGI-Skript laufen,
+offline ausgeführt werden oder von anderem Perl-Programmen/-Modulen
 aufgerufen werden.
 
 =item *
 
-Das Perlmodule DBIx::Recordset bietet einen von SQL abstrahierten, einfach
-zu handhabenden, Datenbankzugriff für Embperl.
+Das Perl-Modul DBIx::Recordset bietet einen von SQL abstrahierten, einfach
+zu handhabenden Datenbankzugriff für Embperl.
 
 
 =item *
 
-I<Embperl::Mail> ermöglicht es das Ergebnis direkt an eine E-Mail
-Adresse zu versenden.
+I<Embperl::Mail> ermöglicht es, das Ergebnis direkt an eine
+E-Mail-Adresse zu versenden.
 
 
 =back

Modified: perl/embperl/trunk/Intro.pod
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Intro.pod?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Intro.pod (original)
+++ perl/embperl/trunk/Intro.pod Thu Sep 21 03:39:10 2023
@@ -37,28 +37,28 @@ Embperl::Intro - Introduction to Embperl
 Embperl has started as a Perl module for simply embedding Perl 
 into HTML and has grown to
 a full featured system to build dynamic content (not only) under 
-mod_perl. The version 1.x focus on HTML documents, also it could be
+mod_perl. The version 1.x focuses on HTML documents, also it could be
 used for any sort of ascii files, and brings a lot of features
-especially useful in a web-environment. This features includes
+especially useful in a web-environment. These features include
 handling of form data and dynamic HTML tables/lists, session management
-and context sensitv escaping and unescaping. More over you can
+and context sensitive escaping and unescaping. Moreover you can
 break up your documents in small reusable components/objects and build
-a object-oriented website out of such objects, by using inheritence and
-specificly overriding parts of the page. Also Embperl can cope with pages
-that are screw up by high-level HTML editors, so your designer can still
-use there favorite tool.
+an object-oriented website out of such objects, by using inheritance and
+specifically overriding parts of the page. Also Embperl can cope with pages
+that are screwed up by high-level HTML editors, so your designer can still
+use their favorite tool.
 
 Embperl 2.0, which is a complete rewrite of the Embperl core, is not
-even much faster then 1.x, but adds new possibilities. You can extent
+only much faster then 1.x, but adds new possibilities. You can extend
 or define your own syntax, thus giving the chance to trigger actions
 on certain tags or inventing your own tags (creating a taglib). 
 It is much more modularized, so specific steps could be replaced by
-custom processor and more then one processor can act on a document
-before it goes to the browser (just like a Unix pipe). To enhances
-performance 2.0 indrocuces caching of the output or intermediate steps.
+a custom processor and more than one processor can act on a document
+before it goes to the browser (just like a Unix pipe). To enhance
+performance 2.0 introduces caching of the output or intermediate steps.
 
-Due to this modularization, it is now possible, to replace Embperl parser
-by an XML parser and to do XML processing, for example by pluging in
+Due to this modularization, it is now possible to replace the Embperl parser
+by an XML parser and to do XML processing, for example by plugging in
 an XSLT processer in the processing pipeline.
 Embperl 2.0 can utilize libxml2 and libxslt for XML and XSLT processing.
 
@@ -85,19 +85,19 @@ Template::Toolkit and AxKit). All of the
 So why to use Embperl? We believe that Embperl, especialy the 
 version 2.0, covers all of the aspects of these modules and integrates them
 in one module with addtionaly benefits that are unique to Embperl.
-Addtionaly Embperl is the fastes of these solutions, because it's engine
+Additionally Embperl is the fastest of these solutions, because it's engine
 is totaly written in C and is optimized for delivering dynamic content
 online.
 
-A another competitor for Embperl is PHP.
+Another competitor for Embperl is PHP.
 PHP is developing a strong user base, because it is rumored to be easy
 to learn, and was designed specifically for HTML. Also PHP is probably one
 of the strongest open source alternatives to using Perl in your
 HTML, it's target is very webcentric and you may discover at a certain
-point that is has it's limitations when you try to realize great projects.
+point that is has its limitations when you try to realize great projects.
 Also it's not true, like some anecdotal stories on the Web might want to make
-you belive, that PHP is faster then Perl. Perl,
-and therfore Embperl also, scales and performs very well for high end solution.
+you believe, that PHP is faster than Perl. Perl,
+and therefore Embperl also, scales and performs very well for high end 
solution.
 
 
 =head2 Focus of this document
@@ -254,7 +254,7 @@ first row:
  # prepare the sql select
  $sth = $dbh -> prepare ("SELECT * from $table") ;
 
- # excute the query
+ # execute the query
  $sth -> execute ;
 
  # get the fieldnames for the heading in $head
@@ -517,7 +517,7 @@ settings, Embperl logs the following thi
 =back
 
 
-Addtional you can write your own debug informtion to the Embperl
+Additionally you can write your own debug information to the Embperl
 logfile by writing to the special filehandle C<LOG> which is
 opend by Embperl.
 
@@ -535,7 +535,7 @@ chapter about dynamic tables, this examp
  # prepare the sql select
  $sth = $dbh -> prepare ("SELECT * from $table") ;
 
- # excute the query
+ # execute the query
  $sth -> execute ;
 
  # get the fieldnames for the heading in $head
@@ -689,7 +689,7 @@ tutorial about how to build an object-or
 L<"perldoc IntroEmbperl2"|"IntroEmbperl2.pod"> describes the advanced
 features of Embperl 2
 
-For a full documenation read L<"perldoc Embperl"|"Embperl.pod"> and
+For a full documentation read L<"perldoc Embperl"|"Embperl.pod"> and
 L<"perldoc Config"|"Config.pod">.
 
 You can find additional information on http://perl.apache.org/embperl

Modified: perl/embperl/trunk/Makefile.PL
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Makefile.PL?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Makefile.PL (original)
+++ perl/embperl/trunk/Makefile.PL Thu Sep 21 03:39:10 2023
@@ -634,7 +634,7 @@ elsif ($apache_src ne '' && -X "$apache_
     }
 
 
-eval 'do "test/conf/config.pl"' ;
+eval 'do "./test/conf/config.pl"' ;
 
 
 if (!$apache && $apache_src eq '')
@@ -1313,7 +1313,7 @@ if ($EP2)
     foreach my $makepl (@makefiles)
         {
         #print "Exec driver/$makepl\n" ;
-        my $result = do "driver/$makepl" ;
+        my $result = do "./driver/$makepl" ;
         if ($@)
             {
             print $@ ;
@@ -1451,6 +1451,11 @@ foreach $f (@bins)
                    #else
                    #   {
                        s/^\#\!.*?perl.*?\s(.*?)/#!$perlbinpath $1/ ;
+                       # For some reason $perlbinpath contains double
+                       # quotes which Apache doesn't like at all for
+                       # CGI script interpreters. So remove them
+                       # again.
+                       s/^\#\!"(.*?)"/#!$1/;
                    #   }
                    s/^.*?perl.*?\s-x/$perlbinpath -x/ ;
                     }

Modified: perl/embperl/trunk/Old.xs
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Old.xs?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/Old.xs (original)
+++ perl/embperl/trunk/Old.xs Thu Sep 21 03:39:10 2023
@@ -252,7 +252,7 @@ log_svs(r,sText)
     tReq * r
     char * sText
 CODE:
-    lprintf (r->pApp,"[%d]MEM:  %s: SVs: %d OBJs: %d\n", r->pThread->nPid, 
sText, sv_count, sv_objcount) ;
+    lprintf (r->pApp,"[%d]MEM:  %s: SVs: %d\n", r->pThread->nPid, sText, 
sv_count) ;
 
 SV *
 embperl_Escape(r, str, mode)

Modified: perl/embperl/trunk/TOC.pod
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/TOC.pod?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/TOC.pod (original)
+++ perl/embperl/trunk/TOC.pod Thu Sep 21 03:39:10 2023
@@ -1,6 +1,6 @@
 =head1 NAME
 
-Embperl::TOC - Embperl Documenation: Table of Contents
+Embperl::TOC - Embperl Documentation: Table of Contents
 
 =head1 DESCRIPTION
 

Modified: perl/embperl/trunk/driver/eplibxslt.MAKEPL
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/driver/eplibxslt.MAKEPL?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/driver/eplibxslt.MAKEPL (original)
+++ perl/embperl/trunk/driver/eplibxslt.MAKEPL Thu Sep 21 03:39:10 2023
@@ -2,6 +2,7 @@
 use File::Spec ;
 use File::Find ;
 use Cwd ;
+use ExtUtils::PkgConfig ;
 
 $win32 = ($^O eq 'MSWin32') ;
 
@@ -16,38 +17,21 @@ my $version2 ;
 
 if (!$win32)
     {
-    if (!open (C, "xml2-config --version|"))
-        {
-        print "Cannot execute xml2-config ($!). libxml2 and libxslt will not 
be linked into Embperl\n" ;
-        return undef ;
-        }
-    chomp ($version = <C>)  or die ("Cannot execute xml2-config to get 
version.") ;
-    close C ;
-
-    open C, "xml2-config --prefix --libs --cflags|" or die ("Cannot execute 
xml2-config ($!).") ;
-    chomp ($prefix = <C>) ;
-    chomp ($libs = <C>) ;
-    chomp ($cflags = <C>) ;
-    close C ;
+    my $pkg = 'libxml-2.0';
+    my %xml2_info = ExtUtils::PkgConfig->find ($pkg) ;
+    $version = $xml2_info{modversion} ;
+    $libs    = $xml2_info{libs} ;
+    $cflags  = $xml2_info{cflags} ;
+    $prefix  = ExtUtils::PkgConfig->variable($pkg, 'exec_prefix') ;
 
     print "Found libxml2 $version installed under $prefix\n" ;
 
-    if (!open (C, "xslt-config --version|"))
-        {
-        print "Cannot execute xslt-config ($!). libxml2 and libxslt will not 
be linked into Embperl\n" ;
-        return undef ;
-        }
-    chomp ($version2 = <C>)  or die ("Cannot execute xslt-config to get 
version.") ;
-    close C ;
-
-    open C, "xslt-config --prefix --libs |" or die ("Cannot execute 
xslt-config ($!).") ;
-    chomp ($prefix2 = <C>) ;
-    chomp ($libs2 = <C>) ;
-    close C ;
-
-    open C, "xslt-config --cflags|" or die ("Cannot execute xslt-config 
($!).") ;
-    chomp ($cflags2 = <C>) ;
-    close C ;
+    $pkg = 'libxslt';
+    my %xslt_info = ExtUtils::PkgConfig->find ($pkg) ;
+    $version2 = $xslt_info{modversion} ;
+    $libs2    = $xslt_info{libs} ;
+    $cflags2  = $xslt_info{cflags} ;
+    $prefix2  = ExtUtils::PkgConfig->variable($pkg, 'exec_prefix') ;
 
     print "Found libxslt $version2 installed under $prefix2\n" ;
     

Modified: perl/embperl/trunk/eg/README
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/eg/README?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/eg/README (original)
+++ perl/embperl/trunk/eg/README Thu Sep 21 03:39:10 2023
@@ -51,7 +51,7 @@ neu.htm               this example shows many
                management (It's in German but I think it can be understand 
                anyway). If called it works like a wizard known from windows 
                95 where you can enter data on some consecutive pages and walk 
-               forward or back at everytime preserving the input made so far. 
+               forward or back at every time preserving the input made so far. 
                Note that the database interface is missing from this example. 
 
 Execute.pl      This is an perl script which shows how to use the function

Modified: perl/embperl/trunk/eg/web/epwebapp.pl
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/eg/web/epwebapp.pl?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/eg/web/epwebapp.pl (original)
+++ perl/embperl/trunk/eg/web/epwebapp.pl Thu Sep 21 03:39:10 2023
@@ -188,7 +188,7 @@ sub init
     $r -> {action_prefix} = $ENV{ACTION_PREFIX} || '' ; 
 
     my $langs  = $config -> {supported_languages} ;
-    # serach the url, if there is a language embeded,
+    # search the url, if there is a language embeded,
     # if yes remove it
     $r -> {selected_language} = '' ;
     my  $accept_lang = $r -> param -> language ;

Modified: perl/embperl/trunk/epmain.c
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/epmain.c?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/epmain.c (original)
+++ perl/embperl/trunk/epmain.c Thu Sep 21 03:39:10 2023
@@ -127,7 +127,7 @@ static char * DoLogError (/*i/o*/ struct
         case rcWriteErr:                msg ="[%d]ERR:  %d: %s File write 
Error%s%s" ; break ;
         case rcUnknownNameSpace:        msg ="[%d]ERR:  %d: %s Namespace %s 
unknown%s" ; break ;
         case rcInputNotSupported:       msg ="[%d]ERR:  %d: %s Input not 
supported in mod_perl mode%s%s" ; break ;
-        case rcCannotUsedRecursive:     msg ="[%d]ERR:  %d: %s Cannot be 
called recursivly in mod_perl mode%s%s" ; break ;
+        case rcCannotUsedRecursive:     msg ="[%d]ERR:  %d: %s Cannot be 
called recursively in mod_perl mode%s%s" ; break ;
         case rcEndtableWithoutTablerow: msg ="[%d]ERR:  %d: %s </tr> without 
<tr>%s%s" ; break ;
         case rcEndtextareaWithoutTextarea: msg ="[%d]ERR:  %d: %s </textarea> 
without <textarea>%s%s" ; break ;
         case rcEvalErr:                 msg ="[%d]ERR:  %d: %s Error in Perl 
code: %s%s" ; break ;
@@ -1506,8 +1506,8 @@ int     embperl_ExecuteRequest  (/*in*/
 #ifdef DMALLOC
                            /* unsigned long mark, int not_freed_b, int 
freed_b, int details_b */
     dmalloc_log_changed (nMemCheckpoint, 1, 0, 1) ;
-    dmalloc_message ( "[%d]Request freed. Exit-SVs: %d -OBJs: %d\n", getpid(),
-           sv_count, sv_objcount) ;
+    dmalloc_message ( "[%d]Request freed. Exit-SVs: %d\n", getpid(),
+           sv_count) ;
     if (nMemCheckpoint2)
         {
         dmalloc_message ( "***TO PREVIOUS REQUEST***\n") ;

Modified: perl/embperl/trunk/epnames.h
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/epnames.h?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/epnames.h (original)
+++ perl/embperl/trunk/epnames.h Thu Sep 21 03:39:10 2023
@@ -325,9 +325,6 @@
 #ifndef sv_count
 #define sv_count PL_sv_count
 #endif
-#ifndef sv_objcount
-#define sv_objcount PL_sv_objcount
-#endif
 #ifndef op_mask
 #define op_mask PL_op_mask
 #endif

Modified: perl/embperl/trunk/eputil.c
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/eputil.c?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/eputil.c (original)
+++ perl/embperl/trunk/eputil.c Thu Sep 21 03:39:10 2023
@@ -1667,7 +1667,7 @@ void ChdirToSource (/*i/o*/ register req
     
 /* 
---------------------------------------------------------------------------- */
 /*                                                                             
 */
-/* Path serach                                                                 
 */
+/* Path search                                                                 
 */
 /*                                                                             
 */
 /* 
---------------------------------------------------------------------------- */
 

Modified: perl/embperl/trunk/mod_embperl.c
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/mod_embperl.c?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/mod_embperl.c (original)
+++ perl/embperl/trunk/mod_embperl.c Thu Sep 21 03:39:10 2023
@@ -39,7 +39,7 @@
 #ifdef WIN32
 #define gettid GetCurrentThreadId
 #else
-static int gettid()
+int gettid()
     {
     return 0 ;
     }
@@ -722,8 +722,10 @@ static void *embperl_create_server_confi
 static void *embperl_merge_dir_config (apr_pool_t *p, void *basev, void *addv)
     {
     if (!basev)
+        {
         return addv ;
-    
+        }
+    else
         {
         tApacheDirConfig *mrg ; /*= (tApacheDirConfig *)ap_palloc (p, 
sizeof(tApacheDirConfig)); */
         tApacheDirConfig *base = (tApacheDirConfig *)basev;

Modified: perl/embperl/trunk/test.pl
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test.pl?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test.pl (original)
+++ perl/embperl/trunk/test.pl Thu Sep 21 03:39:10 2023
@@ -435,9 +435,16 @@
         'errors'     => 9,
         'version'    => 2,
         'repeat'     => 2,
-        'condition'  => '$] >= 5.018000', 
+        'condition'  => '$] >= 5.018000 && $] < 5.019400', 
         'cmpext'     => '518',
         },
+    'includeerr2.htm' => { 
+        'errors'     => 7,
+        'version'    => 2,
+        'repeat'     => 2,
+        'condition'  => '$] >= 5.019400', 
+        'cmpext'     => '520',
+        },
     'includeerr3.htm' => { 
         'errors'     => 2,
         'condition'  => '$] < 5.014000', 
@@ -1311,7 +1318,7 @@ $opt_help = 1 if ($ret == 0) ;
 
 
 
-$confpath = 'test/conf' ;
+$confpath = './test/conf' ;
 
 
 #### read config ####
@@ -1416,7 +1423,7 @@ $vminitsize = 0 ;
 $vmhttpdsize = 0 ;
 $vmhttpdinitsize = 0 ;
 
-require 'test/testapp.pl' ;
+require './test/testapp.pl' ;
 
 
 #####################################################
@@ -1796,6 +1803,11 @@ sub CheckError
     $cnt ||= 0 ;
     $ic    = $cnt ;
 
+    # From "perldoc -f seek":
+    #
+    # Due to the rules and rigors of ANSI C, on some systems you have
+    # to do a seek whenever you switch between reading and writing.
+    seek(ERR, 0, 1);
     while (<ERR>)
        {
        chomp ;
@@ -2118,7 +2130,7 @@ do
                unshift (@testargs, 'dbgbreak') if ($opt_dbgbreak) ;
     
                $txt = "#$testnum ". $file . ($debug != $defaultdebug ?"-d 
$debug ":"") . ($test->{msg} || '') . '...' ;
-               $txt .= ' ' x (30 - length ($txt)) ;
+               $txt .= ' ' x (50 - length ($txt)) ;
                print $txt ; 
     
     
@@ -2204,7 +2216,7 @@ do
 
 
            $txt2 = "$txt from file...";
-           $txt2 .= ' ' x (30 - length ($txt2)) ;
+           $txt2 .= ' ' x (50 - length ($txt2)) ;
            print $txt2 ; 
 
            unlink ($outfile) ;
@@ -2225,7 +2237,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt from memory...";
-               $txt2 .= ' ' x (30 - length ($txt2)) ;
+               $txt2 .= ' ' x (50 - length ($txt2)) ;
                print $txt2 ; 
 
                unlink ($outfile) ;
@@ -2247,7 +2259,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt to memory...";
-               $txt2 .= ' ' x (30 - length ($txt2)) ;
+               $txt2 .= ' ' x (50 - length ($txt2)) ;
                print $txt2 ; 
 
                my $outdata ;
@@ -2274,7 +2286,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt to tied handle...";
-               $txt2 .= ' ' x (30 - length ($txt2)) ;
+               $txt2 .= ' ' x (50 - length ($txt2)) ;
                print $txt2 ; 
 
                my $outdata ;
@@ -2303,7 +2315,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt from/to memory...";
-               $txt2 .= ' ' x (30 - length ($txt2)) ;
+               $txt2 .= ' ' x (50 - length ($txt2)) ;
                print $txt2 ; 
 
                my $outdata ;
@@ -2348,7 +2360,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "$txt to memory...";
-               $txt2 .= ' ' x (30 - length ($txt2)) ;
+               $txt2 .= ' ' x (50 - length ($txt2)) ;
                print $txt2 ; 
 
                my $outdata ;
@@ -2382,7 +2394,7 @@ do
            if (0) #$err == 0 || $opt_ignoreerror)
                {
                $txt2 = "errornous parameter (path) ...";
-               $txt2 .= ' ' x (30 - length ($txt2)) ;
+               $txt2 .= ' ' x (50 - length ($txt2)) ;
                print $txt2 ; 
 
                $err = eval { Embperl::Execute ({'inputfile'  => 'xxxx0',
@@ -2404,7 +2416,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "errornous parameter (input) ...";
-               $txt2 .= ' ' x (30 - length ($txt2)) ;
+               $txt2 .= ' ' x (50 - length ($txt2)) ;
                print $txt2 ; 
                my $out ;
                @errors = () ;
@@ -2431,7 +2443,7 @@ do
            if ($err == 0 || $opt_ignoreerror)
                {
                $txt2 = "errornous parameter (output) ...";
-               $txt2 .= ' ' x (30 - length ($txt2)) ;
+               $txt2 .= ' ' x (50 - length ($txt2)) ;
                print $txt2 ; 
                my $out ;
                @errors = () ;
@@ -2481,7 +2493,7 @@ do
                     $page = $src ;
                                     
                     $txt2 = "$src ...";
-                   $txt2 .= ' ' x (30 - length ($txt2)) ;
+                   $txt2 .= ' ' x (50 - length ($txt2)) ;
                    print $txt2 ; 
 
                    my $outdata ;
@@ -2999,7 +3011,7 @@ do
                }
     
            $txt = "#$testnum $file" . ($debug != $defaultdebug ?"-d $debug 
":"") . '...' ;
-           $txt .= ' ' x (30 - length ($txt)) ;
+           $txt .= ' ' x (50 - length ($txt)) ;
            print $txt ; 
            unlink ($outfile) ;
            

Modified: perl/embperl/trunk/test/cmp/Execute.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/Execute.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/cmp/Execute.htm (original)
+++ perl/embperl/trunk/test/cmp/Execute.htm Thu Sep 21 03:39:10 2023
@@ -127,7 +127,7 @@ $_[1] = &lt;undef&gt; <br>
 ^Apache->request    = Apache2?(::RequestRec)?=SCALAR\(0x
 ^\$\{Apache->request\} = -?\d+<br>
 
-^\${Apache->request} = \$\$req_rec \?  yes  
+^\$\{Apache->request} = \$\$req_rec \?  yes
 
 ^test/html/registry/Execute.htm
 </body>

Modified: perl/embperl/trunk/test/cmp/div.asc
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/div.asc?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/cmp/div.asc (original)
+++ perl/embperl/trunk/test/cmp/div.asc Thu Sep 21 03:39:10 2023
@@ -208,7 +208,7 @@ Please take a look at the source in your
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>

Modified: perl/embperl/trunk/test/cmp/epobase.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/epobase.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/cmp/epobase.htm (original)
+++ perl/embperl/trunk/test/cmp/epobase.htm Thu Sep 21 03:39:10 2023
@@ -3,8 +3,9 @@
 <TITLE>403 Forbidden</TITLE>
 </HEAD><BODY>
 <H1>Forbidden</H1>
-^.*?You don't have permission to access /embperl/EmbperlObject/epobase.htm
-^on this server
+^.*?You don't have permission to access 
(/embperl/EmbperlObject/epobase.htm|this resource)
+^-on this server
+^-</p>
 </BODY></HTML>
 
 

Modified: perl/embperl/trunk/test/cmp/errorfirstrun.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/errorfirstrun.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/cmp/errorfirstrun.htm (original)
+++ perl/embperl/trunk/test/cmp/errorfirstrun.htm Thu Sep 21 03:39:10 2023
@@ -5,7 +5,7 @@ The server encountered an internal error
 <table cellspacing='2' cellpadding='5'>
 <tr bgcolor='#eeeeee'><td>
 <!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
-^\[\d+\]ERR:.+in Perl code: Global symbol \&quot;\$x\&quot; requires explicit 
package name at
+^\[\d+\]ERR:.+in Perl code: Global symbol \&quot;\$x\&quot; requires explicit 
package name
 <!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
 </td></tr>
 <tr bgcolor='#eeeeee'><td>

Added: perl/embperl/trunk/test/cmp/includeerr2.htm520
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/includeerr2.htm520?rev=1912443&view=auto
==============================================================================
--- perl/embperl/trunk/test/cmp/includeerr2.htm520 (added)
+++ perl/embperl/trunk/test/cmp/includeerr2.htm520 Thu Sep 21 03:39:10 2023
@@ -0,0 +1,69 @@
+<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD><BODY bgcolor="#FFFFFF">
+<H1>Internal Server Error</H1>
+The server encountered an internal error or misconfiguration and was unable to 
complete your request.<P>
+^Please contact the server administrator,.*?and inform them of the time the 
error occurred, and anything you might have done that may have caused the 
error.<P><P>
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  32:  Warning in Perl code: Use of uninitialized value 
\$Embperl::__\d+::param\[0\] in concatenation \(\.\) or string at .+incsub.htm 
line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  32:  Warning in Perl code: Use of uninitialized value 
\$Embperl::__\d+::param\[0\] in concatenation \(\.\) or string at .+incsub.htm 
line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  32:  Warning in Perl code: Use of uninitialized value 
\$Embperl::__\d+::param\[0\] in concatenation \(\.\) or string at .+incsub.htm 
line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  32:  Warning in Perl code: Use of uninitialized value 
\$Embperl::__\d+::param\[0\] in concatenation \(\.\) or string at .+incsub.htm 
line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  24:  Error in Perl code: Can't locate object method 
&quot;is&quot; via package &quot;here&quot; \(perhaps you forgot to load 
&quot;here&quot;\?\) at .+incerr.htm line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  32:  Warning in Perl code: Unquoted string &quot;table&quot; may 
clash with future reserved word at .+incerr.htm line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  32:  Warning in Perl code: Unquoted string &quot;td&quot; may 
clash with future reserved word at .+incerr.htm line 8.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  24:  Error in Perl code: syntax error at .+line 4, near 
&quot;\+\]&quot;
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Unknown regexp modifier &quot;\/t&quot; at 
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Unknown regexp modifier &quot;\/r&quot; at 
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  32:  Warning in Perl code: Unquoted string &quot;table&quot; may 
clash with future reserved word at .+incerr.htm line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  32:  Warning in Perl code: Unquoted string &quot;td&quot; may 
clash with future reserved word at .+incerr.htm line 8.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR:  24:  Error in Perl code: syntax error at .+line 4, near 
&quot;\+\]&quot;
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Unknown regexp modifier &quot;\/t&quot; at 
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Unknown regexp modifier &quot;\/r&quot; at 
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+^Embperl
+</BODY></HTML>
+

Modified: perl/embperl/trunk/test/cmp/upload.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/upload.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/cmp/upload.htm (original)
+++ perl/embperl/trunk/test/cmp/upload.htm Thu Sep 21 03:39:10 2023
@@ -11,8 +11,8 @@ Content-Disposition Content-Type
 Content-Type:  test/plain<br>
 ^CGI-Version
 ^cgiok           
-filehandle:     Fh
-Info:          Content-Disposition = form-data; name=&quot;upload&quot;; 
filename=&quot;12upload-filename&quot;
+^filehandle:     (Fh|CGI::File::Temp)
+^Info:         
 Content-Type = test/plain
 no:   1
 size: 2048

Modified: perl/embperl/trunk/test/cmp/varerr.htm56
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/varerr.htm56?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/cmp/varerr.htm56 (original)
+++ perl/embperl/trunk/test/cmp/varerr.htm56 Thu Sep 21 03:39:10 2023
@@ -9,13 +9,13 @@ The server encountered an internal error
 <table cellspacing='2' cellpadding='5'>
 <tr bgcolor='#eeeeee'><td>
 <!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
-^\[.*?\]ERR\:  24\:  Error in Perl code\: Global symbol &quot;\$d&quot; 
requires explicit package name at 
-^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit 
package name at 
-^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit 
package name at 
-^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$d&quot; requires explicit 
package name at 
-^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit 
package name at 
-^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$d&quot; requires explicit 
package name at 
-^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit 
package name at 
+^\[.*?\]ERR\:  24\:  Error in Perl code\: Global symbol &quot;\$d&quot; 
requires explicit package name 
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit 
package name 
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit 
package name 
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$d&quot; requires explicit 
package name 
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit 
package name 
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$d&quot; requires explicit 
package name 
+^<br>&nbsp;&nbsp;&nbsp;&nbsp;Global symbol &quot;\$e&quot; requires explicit 
package name 
 <!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
 </td></tr>
 </table>

Modified: perl/embperl/trunk/test/html/EmbperlObject/epodiv.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/EmbperlObject/epodiv.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/EmbperlObject/epodiv.htm (original)
+++ perl/embperl/trunk/test/html/EmbperlObject/epodiv.htm Thu Sep 21 03:39:10 
2023
@@ -202,7 +202,7 @@ Please take a look at the source in your
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 
 [- $i = 0 -]

Modified: perl/embperl/trunk/test/html/delrdsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/delrdsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/delrdsess.htm (original)
+++ perl/embperl/trunk/test/html/delrdsess.htm Thu Sep 21 03:39:10 2023
@@ -11,13 +11,13 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 
        [+ $num > 0?"ok (num=$num)":"Not a session hash (num=$num)" +]<p>
 
-    $mdat{cnt} = -[+ $mdat{cnt}  +]- <br>
+    $mdat{cnt} = -[+ 0+$mdat{cnt}  +]- <br>
     $udat{cnt} = -[+ $udat{cnt}  +]- <br>
 
        [- $_[0] -> DeleteSession (1) ; -]
@@ -27,7 +27,7 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 

Modified: perl/embperl/trunk/test/html/delsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/delsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/delsess.htm (original)
+++ perl/embperl/trunk/test/html/delsess.htm Thu Sep 21 03:39:10 2023
@@ -11,13 +11,13 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 
        [+ $num > 0?"ok (num=$num)":"Not a session hash (num=$num)" +]<p>
 
-    $mdat{cnt} = -[+ $mdat{cnt}  +]- <br>
+    $mdat{cnt} = -[+ 0+$mdat{cnt}  +]- <br>
     $udat{cnt} = -[+ $udat{cnt}  +]- <br>
 
        [- $_[0] -> DeleteSession (1) ; -]

Modified: perl/embperl/trunk/test/html/delwrsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/delwrsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/delwrsess.htm (original)
+++ perl/embperl/trunk/test/html/delwrsess.htm Thu Sep 21 03:39:10 2023
@@ -11,13 +11,13 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 
        [+ $num > 0?"ok (num=$num)":"Not a session hash (num=$num)" +]<p>
 
-    $mdat{cnt} = -[+ $mdat{cnt}  +]- <br>
+    $mdat{cnt} = -[+ 0+$mdat{cnt}  +]- <br>
     $udat{cnt} = -[+ $udat{cnt}  +]- <br>
 
        [- $_[0] -> DeleteSession (1) ; -]
@@ -27,7 +27,7 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 
@@ -39,7 +39,7 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 

Modified: perl/embperl/trunk/test/html/div.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/div.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/div.htm (original)
+++ perl/embperl/trunk/test/html/div.htm Thu Sep 21 03:39:10 2023
@@ -200,7 +200,7 @@ Please take a look at the source in your
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>

Modified: perl/embperl/trunk/test/html/execgetsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/execgetsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/execgetsess.htm (original)
+++ perl/embperl/trunk/test/html/execgetsess.htm Thu Sep 21 03:39:10 2023
@@ -13,7 +13,7 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$fdat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 
@@ -22,7 +22,7 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 
@@ -36,7 +36,7 @@
        -]
 
 
-        $mdat{cnt} = -[+ $mdat{cnt}  +]- <br>
+        $mdat{cnt} = -[+ 0+$mdat{cnt}  +]- <br>
         $udat{cnt} = -[+ $udat{cnt}  +]- <br>
 
 

Modified: perl/embperl/trunk/test/html/getbsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/getbsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/getbsess.htm (original)
+++ perl/embperl/trunk/test/html/getbsess.htm Thu Sep 21 03:39:10 2023
@@ -22,7 +22,7 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 
@@ -36,7 +36,7 @@
        -]
 
 
-        $mdat{cnt} = -[+ $mdat{cnt}  +]- <br>
+        $mdat{cnt} = -[+ 0+$mdat{cnt}  +]- <br>
         $udat{cnt} = -[+ $udat{cnt}  +]- <br>
 
 

Modified: perl/embperl/trunk/test/html/getdelsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/getdelsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/getdelsess.htm (original)
+++ perl/embperl/trunk/test/html/getdelsess.htm Thu Sep 21 03:39:10 2023
@@ -36,7 +36,7 @@
        -]
 
 
-        $mdat{cnt} = -[+ $mdat{cnt}  +]- <br>
+        $mdat{cnt} = -[+ 0+$mdat{cnt}  +]- <br>
         $udat{cnt} = -[+ $udat{cnt}  +]- <br>
 
 

Modified: perl/embperl/trunk/test/html/getsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/getsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/getsess.htm (original)
+++ perl/embperl/trunk/test/html/getsess.htm Thu Sep 21 03:39:10 2023
@@ -41,7 +41,7 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 
@@ -55,7 +55,7 @@
        -]
 
 
-        $mdat{cnt} = -[+ $mdat{cnt}  +]- <br>
+        $mdat{cnt} = -[+ 0+$mdat{cnt}  +]- <br>
         $udat{cnt} = -[+ $udat{cnt}  +]- <br>
 
 

Modified: perl/embperl/trunk/test/html/match/div.asc
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/match/div.asc?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/match/div.asc (original)
+++ perl/embperl/trunk/test/html/match/div.asc Thu Sep 21 03:39:10 2023
@@ -208,7 +208,7 @@ Please take a look at the source in your
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>

Modified: perl/embperl/trunk/test/html/match/div.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/match/div.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/match/div.htm (original)
+++ perl/embperl/trunk/test/html/match/div.htm Thu Sep 21 03:39:10 2023
@@ -200,7 +200,7 @@ Please take a look at the source in your
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>

Modified: perl/embperl/trunk/test/html/mdatsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/mdatsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/mdatsess.htm (original)
+++ perl/embperl/trunk/test/html/mdatsess.htm Thu Sep 21 03:39:10 2023
@@ -13,7 +13,7 @@
                        }
                -]
 
-        $mdat{cnt} = [+ $mdat{cnt}  +] <br>
+        $mdat{cnt} = [+ 0+$mdat{cnt}  +] <br>
         $fdat{cnt} = [+ $fdat{cnt}  +] <br>
 
         equal ? [+ ($mdat{cnt} == $fdat{cnt})?'yes':'no'  +] <br>

Modified: perl/embperl/trunk/test/html/nph/div.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/nph/div.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/nph/div.htm (original)
+++ perl/embperl/trunk/test/html/nph/div.htm Thu Sep 21 03:39:10 2023
@@ -200,7 +200,7 @@ Please take a look at the source in your
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>

Modified: perl/embperl/trunk/test/html/ofunc/div.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/ofunc/div.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/ofunc/div.htm (original)
+++ perl/embperl/trunk/test/html/ofunc/div.htm Thu Sep 21 03:39:10 2023
@@ -200,7 +200,7 @@ Please take a look at the source in your
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>

Modified: perl/embperl/trunk/test/html/opmask/opmasktrap.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/opmask/opmasktrap.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/opmask/opmasktrap.htm (original)
+++ perl/embperl/trunk/test/html/opmask/opmasktrap.htm Thu Sep 21 03:39:10 2023
@@ -208,7 +208,7 @@ Please take a look at the source in your
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>

Modified: perl/embperl/trunk/test/html/plain.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/plain.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/plain.htm (original)
+++ perl/embperl/trunk/test/html/plain.htm Thu Sep 21 03:39:10 2023
@@ -20,8 +20,8 @@ $e = [+ $e || '' +] <BR>
 
 ARRAY @d = [+ do { my @tmp1 = @d; "@tmp1" } +] num = [+ @d +] <BR>
 ARRAY @x = [+ do { my @tmp1 = %x; "@tmp1" } +] num = [+ @x +]  <BR>
-HASH  %a = [+ do { my @tmp1 = %a; my @tmp11 = sort @tmp1 ; "@tmp11" } +]  num 
= [+ keys %a +] <BR>
-HASH  %y = [+ do { my @tmp2 = %y; my @tmp21 = sort @tmp2 ; "@tmp21" } +]  num 
= [+ keys %y +] <BR>
+HASH  %a = [+ do { my @tmp1 = %a; my @tmp11 = sort @tmp1 ; "@tmp11" } +]  num 
= [+ 0+keys %a +] <BR>
+HASH  %y = [+ do { my @tmp2 = %y; my @tmp21 = sort @tmp2 ; "@tmp21" } +]  num 
= [+ 0+keys %y +] <BR>
 
 
 First of all assign a value:
@@ -40,8 +40,8 @@ Now lets look what we are getting from t
 
 ARRAY @d = [+ "@d" +] num = [+ @d +] <BR>
 ARRAY @x = [+ "@x" +] num = [+ @x +]  <BR>
-HASH  %a = [+ do { my @tmp1 = %a; my @tmp11 = sort @tmp1 ; "@tmp11" } +]  num 
= [+ keys %a +] <BR>
-HASH  %y = [+ do { my @tmp2 = %y; my @tmp21 = sort @tmp2 ; "@tmp21" } +]  num 
= [+ keys %y +] <BR>
+HASH  %a = [+ do { my @tmp1 = %a; my @tmp11 = sort @tmp1 ; "@tmp11" } +]  num 
= [+ 0+keys %a +] <BR>
+HASH  %y = [+ do { my @tmp2 = %y; my @tmp21 = sort @tmp2 ; "@tmp21" } +]  num 
= [+ 0+keys %y +] <BR>
 
 And now a and b together: [+ "$a$b" +]<P>
 

Modified: perl/embperl/trunk/test/html/safe/safe.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/safe/safe.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/safe/safe.htm (original)
+++ perl/embperl/trunk/test/html/safe/safe.htm Thu Sep 21 03:39:10 2023
@@ -208,7 +208,7 @@ Please take a look at the source in your
 
 <P>
 
-[- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -]
+[- $i = 0 ; while ($i < 10) { $ii[$i] = "ii[$i] = $i" ; $i++ ; } -]
 
 <table>
     <tr>

Modified: perl/embperl/trunk/test/html/setbadsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/setbadsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/setbadsess.htm (original)
+++ perl/embperl/trunk/test/html/setbadsess.htm Thu Sep 21 03:39:10 2023
@@ -10,6 +10,6 @@
                $udat{$k} = $fdat{$k} ;
                }
        -]
-       [+ $udat{_session_id} +]
+       [+ ''.$udat{_session_id} +]
 </body>
 </html>

Modified: perl/embperl/trunk/test/html/setunknownsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/setunknownsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/setunknownsess.htm (original)
+++ perl/embperl/trunk/test/html/setunknownsess.htm Thu Sep 21 03:39:10 2023
@@ -10,6 +10,6 @@
                $udat{$k} = $fdat{$k} ;
                }
        -]
-       [+ $udat{_session_id} +]
+       [+ ''.$udat{_session_id} +]
 </body>
 </html>

Modified: perl/embperl/trunk/test/html/sidurl/getsdaturlsess.htm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/sidurl/getsdaturlsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/sidurl/getsdaturlsess.htm (original)
+++ perl/embperl/trunk/test/html/sidurl/getsdaturlsess.htm Thu Sep 21 03:39:10 
2023
@@ -22,7 +22,7 @@
 
        <table>
                <tr>
-                       <td>[+ $ks[$row] +]</td><td>[+ $sdat{$ks[$row] || ''} 
+]</td>
+                       <td>[+ $ks[$row] +]</td><td>[+ 0+$sdat{$ks[$row] || ''} 
+]</td>
                </tr>
        </table>
 



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

svn commit: r1912443 [1/2] - in /perl/embperl/trunk: ./ Embperl/ Embperl/Form/ Embperl/Form/Control/ Embperl/Syntax/ driver/ eg/ eg/web/ test/cmp/ test/html/ test/html/EmbperlObject/ test/html/match/ test/html/nph/ test/html/ofunc/ test/html/opmask/ te...

Reply via email to