richter 00/03/29 11:41:42
Modified: . Embperl.pm Embperl.pod EmbperlObject.pm Faq.pod
Makefile.PL README
Embperl Mail.pm Module.pm
emacs embperl.el
Log:
- Applied a patch from Francis J. Lacoste that makes sure
that when a package name is given the file is always compiled
into this package. Note: This means that if you specify a
packagename and the packagename differs from request to
request, the page is compiled for every package and therfore
consuming memory on every request.
-> Part2 (save params)
Revision Changes Path
1.94 +15 -9 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -r1.93 -r1.94
--- Embperl.pm 2000/03/29 07:00:38 1.93
+++ Embperl.pm 2000/03/29 19:41:40 1.94
@@ -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.93 2000/03/29 07:00:38 richter Exp $
+# $Id: Embperl.pm,v 1.94 2000/03/29 19:41:40 richter Exp $
#
###################################################################################
@@ -853,11 +853,15 @@
}
- no strict ;
- # pass parameters via @param
- *{"$package\:\:param"} = $$req{'param'} if (exists $$req{'param'}) ;
- use strict ;
-
+ my $saved_param = undef;
+ if ( ref $$req{'param'} eq 'ARRAY') {
+ no strict 'refs';
+ # pass parameters via @param
+ $saved_param = \@{"$package\:\:param"}
+ if defined @{"$package\:\:param"};
+ *{"$package\:\:param"} = $$req{'param'};
+ }
+
my $udat ;
my $mdat ;
@@ -927,11 +931,13 @@
}
- no strict ;
- undef *{"$package\:\:param"} ;
- use strict ;
-
+ if ( defined $saved_param ) {
+ no strict 'refs';
+ *{"$package\:\:param"} = $saved_param;
+ }
+
+
if ($SessionMgnt && !$r -> SubReq)
{
if ($SessionMgnt == 1)
1.44 +6 -0 embperl/Embperl.pod
Index: Embperl.pod
===================================================================
RCS file: /home/cvs/embperl/Embperl.pod,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -r1.43 -r1.44
--- Embperl.pod 2000/03/19 13:39:02 1.43
+++ Embperl.pod 2000/03/29 19:41:40 1.44
@@ -2377,6 +2377,8 @@
=item perl5.005_03
+=item perl5.6.0
+
=item apache_1.2.5
=item apache_1.2.6
@@ -2394,6 +2396,10 @@
=item apache_1.3.5
=item apache_1.3.6
+
+=item apache_1.3.9
+
+=item apache_1.3.12
=item apache_ssl (Ben SSL)
1.18 +0 -0 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- EmbperlObject.pm 2000/03/29 07:00:39 1.17
+++ EmbperlObject.pm 2000/03/29 19:41:40 1.18
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: EmbperlObject.pm,v 1.17 2000/03/29 07:00:39 richter Exp $
+# $Id: EmbperlObject.pm,v 1.18 2000/03/29 19:41:40 richter Exp $
#
###################################################################################
1.11 +3 -79 embperl/Faq.pod
Index: Faq.pod
===================================================================
RCS file: /home/cvs/embperl/Faq.pod,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- Faq.pod 1999/10/13 05:41:36 1.10
+++ Faq.pod 2000/03/29 19:41:40 1.11
@@ -217,7 +217,7 @@
-=head2 make test fails with a SIGxxxx, how can I obtain a stack bactrace
+=head2 make test fails with a SIGxxxx, how can I obtain a stack backtrace
from gdb?
The eaiest way is
@@ -308,84 +308,8 @@
=head2 Embperl and mod_perl on AIX
-(from Jens-Uwe Mager)
-
-This was tested on AIX 4.1.5 with Apache 1.3.9 and the latest (post
-1.21) modperl from CVS. Earlier versions of modperl would only work
-after massaging the modperl build process by hand. To build Apache with
-modperl as a DSO I had to apply the following patch to modperl (the
-original assumed the apache source is in /usr/local/apache/src):
-
- Index: apaci/configure
- ===================================================================
- --- apaci/configure.orig Wed Aug 18 16:54:07 1999
- +++ apaci/configure Wed Aug 18 16:57:12 1999
- @@ -73,6 +73,7 @@
- my_apxs_sourcedir="`$my_apxs -q PREFIX`"
- my_apxs_cflags="`$my_apxs -q CFLAGS`"
- my_apxs_includes="-I`$my_apxs -q INCLUDEDIR`"
- +my_apxs_libexec="`$my_apxs -q LIBEXECDIR`"
-
- # friendly header
- echo "Configuring mod_perl for building via APXS" 2>&1
- @@ -95,6 +96,7 @@
- echo "RANLIB=ranlib" >>$my_makefileconf
- echo "LIBEXT=so" >>$my_makefileconf
- echo "APACHEEXT=$my_apxs_sourcedir/src" >>$my_makefileconf
- +echo "APACHELIBEXEC=$my_apxs_libexec" >>$my_makefileconf
- echo "BASEEXT=mod_perl" >>$my_makefileconf
- echo "APXS=$my_apxs" >>$my_makefileconf
- echo "# own special stuff" >>$my_makefileconf
- Index: apaci/mod_perl.config.sh
- ===================================================================
- --- apaci/mod_perl.config.sh.orig Wed Aug 4 03:17:52 1999
- +++ apaci/mod_perl.config.sh Wed Aug 18 16:55:46 1999
- @@ -116,7 +116,7 @@
- perl_lddlflags="`$perl_interp -MConfig -e 'print $Config{lddlflags}'`"
-
- case "$os_version" in
- - aix*) perl_lddlflags="$perl_lddlflags -bI:\$(APACHEEXT)/support/httpd.exp" ;;
- + aix*) perl_lddlflags="$perl_lddlflags -bI:\$(APACHELIBEXEC)/httpd.exp" ;;
- * ) ;;
- esac
-
- Index: apaci/mod_perl.exp
- ===================================================================
- --- apaci/mod_perl.exp.orig Wed Aug 18 17:26:50 1999
- +++ apaci/mod_perl.exp Wed Aug 18 17:58:49 1999
- @@ -1 +1,3 @@
- +#!
- perl_module
- +mod_perl_sent_header
-
-A second patch was needed for Apache 1.3.9 itself, as two symbols were
-forgotton to export in the base release:
-
- Index: src/support/httpd.exp
- ===================================================================
- --- src/support/httpd.exp.orig Wed Aug 18 17:07:34 1999
- +++ src/support/httpd.exp Wed Aug 18 17:08:20 1999
- @@ -9,6 +9,7 @@
- ap_SHA1Update
- ap_add_cgi_vars
- ap_add_common_vars
- +ap_add_file_conf
- ap_add_module
- ap_add_named_module
- ap_add_per_dir_conf
- @@ -308,6 +309,7 @@
- ap_server_root_relative
- ap_set_byterange
- ap_set_callback_and_alarm
- +ap_set_config_vectors
- ap_set_content_length
- ap_set_etag
- ap_set_file_slot
-
-After that you can simply build Embperl by using the supplied Makefile.
-As for the question where mod_perl is located, I gave the answer
-/usr/local/apache/libexec, as modperl is installed as a DSO.
-
+You need at least mod_perl 1.22. For mod_perl 1.22 and higher Embperl
+should compile out of the box on AIX.
=head2 Embperl does not write to the logfile, because of missing permissions
1.25 +1 -1 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- Makefile.PL 2000/03/29 07:00:39 1.24
+++ Makefile.PL 2000/03/29 19:41:40 1.25
@@ -626,7 +626,7 @@
}
require Apache::src;
- $dynlib->{'OTHERLDFLAGS'} = Apache::src->new->otherldflags;
+ $dynlib->{'OTHERLDFLAGS'} = Apache::src->new->otherldflags if (defined
(&Apache::src::otherldflags)) ;
if ($EPSTRONGHOLD)
1.16 +2 -0 embperl/README
Index: README
===================================================================
RCS file: /home/cvs/embperl/README,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- README 2000/03/19 13:39:03 1.15
+++ README 2000/03/29 19:41:40 1.16
@@ -128,6 +128,7 @@
perl5.004_04
perl5.005_01/02/03
+perl5.6.0
apache_1.2.5
apache_1.2.6
apache_1.3.0
@@ -137,6 +138,7 @@
apache_1.3.4
apache_1.3.6
apache_1.3.9
+apache_1.3.12
apache + mod_ssl
apache_ssl (Ben SSL)
Stronghold 2.2
1.17 +0 -0 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- Mail.pm 2000/03/29 07:00:41 1.16
+++ Mail.pm 2000/03/29 19:41:41 1.17
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Mail.pm,v 1.16 2000/03/29 07:00:41 richter Exp $
+# $Id: Mail.pm,v 1.17 2000/03/29 19:41:41 richter Exp $
#
###################################################################################
1.18 +0 -0 embperl/Embperl/Module.pm
Index: Module.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Module.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- Module.pm 2000/03/29 07:00:41 1.17
+++ Module.pm 2000/03/29 19:41:41 1.18
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.17 2000/03/29 07:00:41 richter Exp $
+# $Id: Module.pm,v 1.18 2000/03/29 19:41:41 richter Exp $
#
###################################################################################
@@ -25,7 +25,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.17 2000/03/29 07:00:41 richter Exp $
+# $Id: Module.pm,v 1.18 2000/03/29 19:41:41 richter Exp $
#
###################################################################################
1.86 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -r1.85 -r1.86
--- embperl.el 2000/03/29 07:00:41 1.85
+++ embperl.el 2000/03/29 19:41:42 1.86
@@ -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: 2000/03/29 07:00:41 $
+;; Last Modified On: $Date: 2000/03/29 19:41:42 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.85 2000/03/29 07:00:41 richter Exp $
+;; $Id: embperl.el,v 1.86 2000/03/29 19:41:42 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
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
