Mailing List Archive

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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org