Mailing List Archive

richter 00/04/17 14:22:23

Modified: . Changes.pod Embperl.pm EmbperlObject.pm epeval.c
Embperl Mail.pm Module.pm
emacs embperl.el
test/html ifperl.htm
Log:
- Fixed a SIGSEGV that occured when Embperl found [*] inside
a page. Spotted by Barrie Slaymaker.

Revision Changes Path
1.112 +3 -1 embperl/Changes.pod

Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.111
retrieving revision 1.112
diff -u -r1.111 -r1.112
--- Changes.pod 2000/04/17 21:03:15 1.111
+++ Changes.pod 2000/04/17 21:22:19 1.112
@@ -35,7 +35,9 @@
Apache 1.3.12 and Perl 5.6 on Win32.
- Removed some -w warnings form EmbperlObject
- Added tests for EmbperlObject
-
+ - Fixed a SIGSEGV that occured when Embperl found [*] inside
+ a page. Spotted by Barrie Slaymaker.
+

=head1 1.3b2 (BETA) 11. Feb 2000




1.99 +0 -0 embperl/Embperl.pm

Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -r1.98 -r1.99
--- Embperl.pm 2000/04/17 21:03:15 1.98
+++ Embperl.pm 2000/04/17 21:22:19 1.99
@@ -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.98 2000/04/17 21:03:15 richter Exp $
+# $Id: Embperl.pm,v 1.99 2000/04/17 21:22:19 richter Exp $
#
###################################################################################




1.23 +0 -0 embperl/EmbperlObject.pm

Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- EmbperlObject.pm 2000/04/17 21:03:15 1.22
+++ EmbperlObject.pm 2000/04/17 21:22:19 1.23
@@ -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.22 2000/04/17 21:03:15 richter Exp $
+# $Id: EmbperlObject.pm,v 1.23 2000/04/17 21:22:19 richter Exp $
#
###################################################################################




1.20 +1 -1 embperl/epeval.c

Index: epeval.c
===================================================================
RCS file: /home/cvs/embperl/epeval.c,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- epeval.c 1999/11/02 08:32:49 1.19
+++ epeval.c 2000/04/17 21:22:19 1.20
@@ -986,7 +986,7 @@
pClose = NULL ;
if (pOpen)
{
- if ((pClose = strstr (pOpen, pCloseBracket)) == NULL)
+ if ((pClose = strstr (pOpen + lenOpenBracket, pCloseBracket)) == NULL)
{
strncpy (r -> errdat1, pCloseBracket, sizeof (r -> errdat1) - 1) ;
return rcMissingRight ;



1.22 +0 -0 embperl/Embperl/Mail.pm

Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- Mail.pm 2000/04/17 21:03:16 1.21
+++ Mail.pm 2000/04/17 21:22:21 1.22
@@ -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.21 2000/04/17 21:03:16 richter Exp $
+# $Id: Mail.pm,v 1.22 2000/04/17 21:22:21 richter Exp $
#
###################################################################################




1.23 +0 -0 embperl/Embperl/Module.pm

Index: Module.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Module.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- Module.pm 2000/04/17 21:03:16 1.22
+++ Module.pm 2000/04/17 21:22:21 1.23
@@ -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.22 2000/04/17 21:03:16 richter Exp $
+# $Id: Module.pm,v 1.23 2000/04/17 21:22:21 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.22 2000/04/17 21:03:16 richter Exp $
+# $Id: Module.pm,v 1.23 2000/04/17 21:22:21 richter Exp $
#
###################################################################################




1.91 +0 -0 embperl/emacs/embperl.el

Index: embperl.el
===================================================================
RCS file: /home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -r1.90 -r1.91
--- embperl.el 2000/04/17 21:03:17 1.90
+++ embperl.el 2000/04/17 21:22:22 1.91
@@ -19,9 +19,9 @@
;; Author : Erik Arneson (erik@mind.net)
;; Created On : Wed Jul 22 17:16:39 PDT 1998
;; Last Modified By: Erik Arneson
-;; Last Modified On: $Date: 2000/04/17 21:03:17 $
+;; Last Modified On: $Date: 2000/04/17 21:22:22 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.90 2000/04/17 21:03:17 richter Exp $
+;; $Id: embperl.el,v 1.91 2000/04/17 21:22:22 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 +1 -1 embperl/test/html/ifperl.htm

Index: ifperl.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/ifperl.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- ifperl.htm 1999/10/05 06:03:43 1.2
+++ ifperl.htm 2000/04/17 21:22:23 1.3
@@ -3,7 +3,7 @@
<head>
<title>IF Metacommand in Embperl</title>
</head>
-
+
<body>

[.- $a = 1; $b = 0; $c = 5; $d = 'txt' -]