richter 01/11/23 04:30:28
Modified: . Tag: Embperl2c test.pl
Log:
fix double sub names in compiled code
Revision Changes Path
No revision
No revision
1.70.4.101 +5 -3 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.100
retrieving revision 1.70.4.101
diff -u -r1.70.4.100 -r1.70.4.101
--- test.pl 2001/11/23 11:43:55 1.70.4.100
+++ test.pl 2001/11/23 12:30:27 1.70.4.101
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: test.pl,v 1.70.4.100 2001/11/23 11:43:55 richter Exp $
+# $Id: test.pl,v 1.70.4.101 2001/11/23 12:30:27 richter Exp $
#
###################################################################################
@@ -1972,8 +1972,10 @@
}
foreach $src ('EmbperlObject/epopage1.htm',
'EmbperlObject/sub/epopage2.htm', 'EmbperlObject/obj/epoobj3.htm',
- 'EmbperlObject/sub/epobless.htm',
'EmbperlObject/sub/epobless.htm', 'EmbperlObject/sub/epobless2.htm',
'EmbperlObject/sub/epobless2.htm',
- , 'EmbperlObject/sub/epobless3.htm',
'EmbperlObject/sub/epobless3.htm')
+ 'EmbperlObject/sub/epobless.htm',
'EmbperlObject/sub/epobless.htm',
+ #'EmbperlObject/sub/epobless2.htm',
'EmbperlObject/sub/epobless2.htm',
+ #'EmbperlObject/sub/epobless3.htm',
'EmbperlObject/sub/epobless3.htm',
+ )
{
if ($err == 0 || $opt_ignoreerror) # && $version == 1)
{
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
