richter 00/12/03 05:13:45
Modified: . Changes.pod Embperl.pm test.pl
Log:
- Fixed a problem that Perl generated an error when $req_rec and [$ var $] was
used. Spotted by Michael Stevens.
Revision Changes Path
1.146 +3 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.145
retrieving revision 1.146
diff -u -r1.145 -r1.146
--- Changes.pod 2000/11/28 19:24:00 1.145
+++ Changes.pod 2000/12/03 13:13:44 1.146
@@ -9,6 +9,9 @@
- Corrected a wrong test, that let make test fail. Spotted by Eddie Lau.
- Added a Line Feed at the end of epnames.h, which has caused some problems
with on old SunOS compiler. Spotted by Roman Maeder.
+ - Fixed a problem that Perl generated an error when $req_rec and [$ var $] was
+ used. Spotted by Michael Stevens.
+
=head1 1.3b7 (BETA) 15. Nov 2000
1.135 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.134
retrieving revision 1.135
diff -u -r1.134 -r1.135
--- Embperl.pm 2000/11/17 05:30:48 1.134
+++ Embperl.pm 2000/12/03 13:13:44 1.135
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.134 2000/11/17 05:30:48 richter Exp $
+# $Id: Embperl.pm,v 1.135 2000/12/03 13:13:44 richter Exp $
#
###################################################################################
@@ -1816,7 +1816,7 @@
*{"$package\:\:tabmode"} = \$HTML::Embperl::tabmode ;
*{"$package\:\:escmode"} = \$HTML::Embperl::escmode ;
*{"$package\:\:http_headers_out"} = \%HTML::Embperl::http_headers_out ;
- *{"$package\:\:req_rec"} = \$HTML::Embperl::req_rec if defined
($HTML::Embperl::req_rec) ;
+ *{"$package\:\:req_rec"} = \$HTML::Embperl::req_rec ; #if defined
($HTML::Embperl::req_rec) ;
##ep2## *{"$package\:\:_ep_node"} = \$HTML::Embperl::_ep_node ;
if (defined (&Apache::exit))
{
1.87 +5 -0 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -r1.86 -r1.87
--- test.pl 2000/11/17 05:30:48 1.86
+++ test.pl 2000/12/03 13:13:44 1.87
@@ -84,6 +84,11 @@
'version' => 1,
'cgi' => 0,
},
+ 'varepvar.htm' => {
+ 'query_info' => 'a=1&b=2',
+ 'offline' => 0,
+ 'cgi' => 0,
+ },
'escape.htm' => {
repeat => 2,
},
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
