richter 00/12/04 05:38:33
Modified: . Tag: Embperl2c Embperl.pm epmain.c
test/html/registry Tag: Embperl2c tied.htm
Log:
Embperl 2 - fix file reading
Revision Changes Path
No revision
No revision
1.118.4.16 +3 -1 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.15
retrieving revision 1.118.4.16
diff -u -r1.118.4.15 -r1.118.4.16
--- Embperl.pm 2000/12/04 09:17:32 1.118.4.15
+++ Embperl.pm 2000/12/04 13:38:13 1.118.4.16
@@ -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.15 2000/12/04 09:17:32 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.16 2000/12/04 13:38:13 richter Exp $
#
###################################################################################
@@ -1225,6 +1225,8 @@
sub cleanup
{
+ return 0 ;
+
#log_svs ("cleanup entry") ;
my $glob ;
my $val ;
1.75.4.16 +1 -1 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.15
retrieving revision 1.75.4.16
diff -u -r1.75.4.15 -r1.75.4.16
--- epmain.c 2000/12/04 09:17:35 1.75.4.15
+++ epmain.c 2000/12/04 13:38:13 1.75.4.16
@@ -3144,7 +3144,7 @@
{
SV * * ppSV ;
- ppSV = hv_fetch (r -> Buf.pFile -> pCacheHash, "SRCDOM", 6, 0) ;
+ ppSV = hv_fetch (r -> Buf.pFile -> pCacheHash, "P-1----", 7, 0) ;
if (ppSV && *ppSV)
{
r -> Buf.pBuf = NULL ;
No revision
No revision
1.2.6.1 +1 -1 embperl/test/html/registry/tied.htm
Index: tied.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/registry/tied.htm,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -r1.2 -r1.2.6.1
--- tied.htm 1999/10/05 06:04:10 1.2
+++ tied.htm 2000/12/04 13:38:19 1.2.6.1
@@ -91,7 +91,7 @@
print "<HTML><TITLE>Test for HTML::Embperl::Execute</TITLE><BODY>\n" ;
print "<H1> 6.) Include from memory: tied string</H1>\n" ;
-$rc = HTML::Embperl::Execute ({inputfile => 'test_tied_string_ref',
+$rc = HTML::Embperl::Execute ({inputfile => 'test_tied_string',
input => $tiedvar1,
mtime => 1}) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
