richter 00/11/15 00:33:07
Modified: . Tag: Embperl2c Changes.pod Embperl.pm epcomp.c
test.pl
test/cmp Tag: Embperl2c binary.htm
Log:
Embperl 2 - Perl 5.004 fixes
Revision Changes Path
No revision
No revision
1.129.4.6 +5 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.5
retrieving revision 1.129.4.6
diff -u -r1.129.4.5 -r1.129.4.6
--- Changes.pod 2000/11/15 07:21:52 1.129.4.5
+++ Changes.pod 2000/11/15 08:33:02 1.129.4.6
@@ -81,6 +81,11 @@
seems to be due to problems of mod_perl's enironment handling.
- Droped support for Apache::Session 0.17. Embperl now support only
Apache::Session 1.00 and higher.
+ - Added new option: optDisableSelectScan, to allow processing of SELECT tags,
+ while processing of TABLE tags is disabled. Suggested by Robert.
+ - Carridge Returns are only removed for Perl 5.004. This makes using of
+ HERE documents possible on Perl 5.005+, even if the documents has CRLF
+ as lineendings.
=head1 1.3b6 (BETA) 18. Oct 2000
1.118.4.13 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.12
retrieving revision 1.118.4.13
diff -u -r1.118.4.12 -r1.118.4.13
--- Embperl.pm 2000/11/15 07:21:52 1.118.4.12
+++ Embperl.pm 2000/11/15 08:33:02 1.118.4.13
@@ -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.118.4.12 2000/11/15 07:21:52 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.13 2000/11/15 08:33:02 richter Exp $
#
###################################################################################
@@ -86,7 +86,7 @@
##ep2##
-$VERSION = '2.0a14' ;
+$VERSION = '2.0a15' ;
##/ep2##
##ep1##$VERSION = '1.3b7_dev';
1.4.2.16 +7 -1 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.15
retrieving revision 1.4.2.16
diff -u -r1.4.2.15 -r1.4.2.16
--- epcomp.c 2000/11/15 07:21:52 1.4.2.15
+++ epcomp.c 2000/11/15 08:33:02 1.4.2.16
@@ -1775,7 +1775,13 @@
else
pQueryInfoKey = "" ;
- nKey = _snprintf (sKey, sizeof (sKey) - 1, "%c-%d-%s-%s-%s-%s", cType,
pProcessor -> nProcessorNo, pProcessor -> sCacheKey, pCVKey, pPathInfoKey,
pQueryInfoKey) ;
+ nKey =
+#ifdef WIN32
+ _snprintf
+#else
+ snprintf
+#endif
+ (sKey, sizeof (sKey) - 1, "%c-%d-%s-%s-%s-%s", cType, pProcessor ->
nProcessorNo, pProcessor -> sCacheKey, pCVKey, pPathInfoKey, pQueryInfoKey) ;
if (r -> bDebug & dbgCache)
lprintf (r, "[%d]CACHE: File: '%s' Processor: '%s' Step: '%s' gives Key:
'%s'\n", r -> nPid, r -> Buf.pFile -> sSourcefile, pProcessor -> sName, sStepName,
sKey) ;
*pppSV = ppSV = hv_fetch(r -> Buf.pFile -> pCacheHash, sKey, nKey, 1) ;
1.70.4.22 +27 -27 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.21
retrieving revision 1.70.4.22
diff -u -r1.70.4.21 -r1.70.4.22
--- test.pl 2000/11/15 08:11:27 1.70.4.21
+++ test.pl 2000/11/15 08:33:02 1.70.4.22
@@ -1445,106 +1445,106 @@
{
text => 'No cache 1',
param => { param => [1], },
- cmp => 1,
+ 'cmp' => 1,
},
{
text => 'No cache 2',
param => { param => [2], },
- cmp => 2,
+ 'cmp' => 2,
},
{
text => 'Expires in 1 sec',
param => { param => [3], expires_in => 1, },
- cmp => 3,
+ 'cmp' => 3,
},
{
text => 'Expires in 1 sec (cached)',
param => { param => ['not cached'], expires_in => 1, },
- cmp => 3,
+ 'cmp' => 3,
},
{
text => 'Wait for expire',
- sleep => 2,
+ 'sleep' => 2,
},
{
text => 'Expires in 1 sec (reexec)',
param => { param => ['reexec'], expires_in => 1, },
- cmp => 'reexec',
+ 'cmp' => 'reexec',
},
{
text => 'Expires function',
param => { param => [4], expires_func => sub { 1 } },
- cmp => 4,
+ 'cmp' => 4,
},
{
text => 'Expires function (cached)',
param => { param => ['not cached func'], expires_func => sub {
0 } },
- cmp => 4,
+ 'cmp' => 4,
},
{
text => 'Expires function (reexec)',
param => { param => ['reexec func'], expires_func => sub { 1 },
},
- cmp => 'reexec func',
+ 'cmp' => 'reexec func',
},
{
text => 'Expires string function (cached)',
param => { param => ['not cached string func'], expires_func =>
'sub { 0 }' },
- cmp => 'reexec func',
+ 'cmp' => 'reexec func',
},
{
text => 'Expires string function (reexec)',
param => { param => ['reexec string func'], expires_func =>
'sub { 1 }', },
- cmp => 'reexec string func',
+ 'cmp' => 'reexec string func',
},
{
text => 'Expires named function (cached)',
param => { param => ['not cached named func'], expires_func =>
'main::s0' },
- cmp => 'reexec string func',
+ 'cmp' => 'reexec string func',
},
{
text => 'Expires named function (reexec)',
param => { param => ['reexec named func'], expires_func =>
'main::s1', },
- cmp => 'reexec named func',
+ 'cmp' => 'reexec named func',
},
{
text => 'Change query_info',
param => { param => ['query_info'], expires_func => 'main::s0'
},
query_info => 'qi',
- cmp => 'query_info',
+ 'cmp' => 'query_info',
},
{
text => 'Change query_info (cached)',
param => { param => ['not cached query_info'], expires_func =>
'main::s0' },
query_info => 'qi',
- cmp => 'query_info',
+ 'cmp' => 'query_info',
},
{
text => 'Expires named function (cached)',
param => { param => ['not cached named func query_info'],
expires_func => 'main::s0' },
- cmp => 'reexec named func',
+ 'cmp' => 'reexec named func',
},
{
text => 'Change query_info (reexec)',
param => { param => ['reexec query_info'], expires_func =>
'main::s1' },
query_info => 'qi',
- cmp => 'reexec query_info',
+ 'cmp' => 'reexec query_info',
},
{
text => 'Expires named function (cached)',
param => { param => ['not cached named func query_info'],
expires_func => 'main::s0' },
- cmp => 'reexec named func',
+ 'cmp' => 'reexec named func',
},
{
text => 'Change query_info (cached)',
param => { param => ['not cached reexec query_info 2'],
expires_func => 'main::s0' },
query_info => 'qi',
- cmp => 'reexec query_info',
+ 'cmp' => 'reexec query_info',
},
{
text => 'Modify source',
param => { param => ['mod'], expires_func => 'main::s0' },
mtime => 2,
- cmp => 'mod',
+ 'cmp' => 'mod',
},
{
@@ -1552,7 +1552,7 @@
param => { param => ['mod query_info'], expires_func =>
'main::s0' },
query_info => 'qi',
mtime => 2,
- cmp => 'mod query_info',
+ 'cmp' => 'mod query_info',
},
{
@@ -1560,39 +1560,39 @@
name => 'c2',
src => \('[! $EXPIRES = 1 !]' . $src),
param => { param => ['expires in src'] },
- cmp => 'expires in src',
+ 'cmp' => 'expires in src',
},
{
text => '$EXPIRES in source (cached)',
name => 'c2',
src => \('[! $EXPIRES = 1 !]' . $src),
param => { param => ['not cached expires in src'] },
- cmp => 'expires in src',
+ 'cmp' => 'expires in src',
},
{
text => 'Wait for expire',
- sleep => 2,
+ 'sleep' => 2,
},
{
text => '$EXPIRES in source (reexc)',
name => 'c2',
src => \('[! $EXPIRES = 1 !]' . $src),
param => { param => ['reexec expires in src'] },
- cmp => 'reexec expires in src',
+ 'cmp' => 'reexec expires in src',
},
{
text => 'sub EXPIRES in source',
name => 'c3',
src => \('[! sub EXPIRES { 0 } !]' . $src),
param => { param => ['expires_func in src'] },
- cmp => 'expires_func in src',
+ 'cmp' => 'expires_func in src',
},
{
text => 'sub EXPIRES in source (cached)',
name => 'c3',
src => \('[! sub EXPIRES { 0 } !]' . $src),
param => { param => ['not cached expires_func in src'] },
- cmp => 'expires_func in src',
+ 'cmp' => 'expires_func in src',
},
) ;
No revision
No revision
1.1.2.5 +2 -1 embperl/test/cmp/binary.htm
<<Binary file>>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
