richter 99/12/31 05:51:50
Modified: . Changes.pod Embperl.pm TODO
emacs embperl.el
test/cmp importsub.htm
test/html importsub.htm subimp.htm
Log:
- fix a problem that $req_rec is not correctly setup inside
imported subs. Reported by Cliff Rayman.
Revision Changes Path
1.93 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /export/home/cvs/embperl/Changes.pod,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -r1.92 -r1.93
--- Changes.pod 1999/12/12 19:32:29 1.92
+++ Changes.pod 1999/12/31 13:51:47 1.93
@@ -17,6 +17,8 @@
now decimal, binary, octal and hex values.
- fix a SIGSEGV that could occur under rare conditions in
cleanup. With help from Todd Eigenschink and Gary Shea.
+ - fix a problem that $req_rec is not correctly setup inside
+ imported subs. Reported by Cliff Rayman.
=head1 1.2.0 17 Nov 1999
1.73 +2 -3 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /export/home/cvs/embperl/Embperl.pm,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -r1.72 -r1.73
--- Embperl.pm 1999/12/12 19:32:30 1.72
+++ Embperl.pm 1999/12/31 13:51:47 1.73
@@ -753,6 +753,8 @@
$evalpackage = $package ;
my $exports ;
+ $r -> CreateAliases () ;
+
if (exists ($$req{import}) && ($exports = $r -> ExportHash))
{
$r -> Export ($exports, caller ($$req{import} - 1)) if ($$req{import}) ;
@@ -760,9 +762,6 @@
}
else
{
- $r -> CreateAliases () ;
-
-
#local $^W = 0 ;
@ffld = @{$$req{'ffld'}} if (defined ($$req{'ffld'})) ;
if (defined ($$req{'fdat'}))
1.76 +2 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /export/home/cvs/embperl/TODO,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -r1.75 -r1.76
--- TODO 1999/12/20 05:04:36 1.75
+++ TODO 1999/12/31 13:51:47 1.76
@@ -92,6 +92,8 @@
----
- [- -] [+ +] etc all turns into _perl_code_ in html [S Page 13.9.99]
+- maxrwo, maxcol [Ed Geenberg, Cliff Raymann 20.12.99]
+
*- Performance
*- HTML::Embperl::Session
*- 'errors' parameter
1.61 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /export/home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- embperl.el 1999/12/20 05:04:40 1.60
+++ embperl.el 1999/12/31 13:51:48 1.61
@@ -19,9 +19,9 @@
;; Author : Erik Arneson ([EMAIL PROTECTED])
;; Created On : Wed Jul 22 17:16:39 PDT 1998
;; Last Modified By: Erik Arneson
-;; Last Modified On: $Date: 1999/12/20 05:04:40 $
+;; Last Modified On: $Date: 1999/12/31 13:51:48 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.60 1999/12/20 05:04:40 richter Exp $
+;; $Id: embperl.el,v 1.61 1999/12/31 13:51:48 richter Exp $
;;
;; Please note that this software is very beta and rather broken. I
;; don't know how useful it will be, although I definitely plan on
1.3 +7 -0 embperl/test/cmp/importsub.htm
Index: importsub.htm
===================================================================
RCS file: /export/home/cvs/embperl/test/cmp/importsub.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- importsub.htm 1999/10/05 06:02:09 1.2
+++ importsub.htm 1999/12/31 13:51:49 1.3
@@ -50,6 +50,13 @@
</tr>
</table>
+
+req_rec sub:
+^<h2>\$req_rec =.*?\$\$req_rec =
+
+
+^<h2>\$req_rec =.*?\$\$req_rec =
+
And done!
1.3 +5 -0 embperl/test/html/importsub.htm
Index: importsub.htm
===================================================================
RCS file: /export/home/cvs/embperl/test/html/importsub.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- importsub.htm 1999/10/05 06:03:43 1.2
+++ importsub.htm 1999/12/31 13:51:50 1.3
@@ -28,6 +28,11 @@
</tr>
</table>
+
+req_rec sub:
+<h2>$req_rec = [+ $req_rec +] $$req_rec = [+ $$req_rec +]<h2>
+[- trr -]
+
And done!
1.4 +6 -0 embperl/test/html/subimp.htm
Index: subimp.htm
===================================================================
RCS file: /export/home/cvs/embperl/test/html/subimp.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- subimp.htm 1999/10/05 06:03:47 1.3
+++ subimp.htm 1999/12/31 13:51:50 1.4
@@ -37,3 +37,9 @@
</table>
[$endsub$]
+[###### req_rec #####]
+[$sub trr$]
+
+<h2>$req_rec = [+ $req_rec +] $$req_rec = [+ $$req_rec +]<h2>
+
+[$endsub$]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
