You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2001/09/01 23:50:01 UTC
cvs commit: embperl Embperl.pm EmbperlObject.pm TODO
richter 01/09/01 14:50:01
Modified: . Tag: Embperl2c Embperl.pm EmbperlObject.pm TODO
Log:
Embperl 2 - cleanup
Revision Changes Path
No revision
No revision
1.118.4.50 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.118.4.49
retrieving revision 1.118.4.50
diff -u -r1.118.4.49 -r1.118.4.50
--- Embperl.pm 2001/08/28 08:01:26 1.118.4.49
+++ Embperl.pm 2001/09/01 21:50:00 1.118.4.50
@@ -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.49 2001/08/28 08:01:26 richter Exp $
+# $Id: Embperl.pm,v 1.118.4.50 2001/09/01 21:50:00 richter Exp $
#
###################################################################################
@@ -68,7 +68,7 @@
##ep2##
-$VERSION = '2.0b4_dev-2' ;
+$VERSION = '2.0b4_dev-3' ;
##/ep2##
##ep1##$VERSION = '1.3.4_dev';
1.36.4.7 +3 -3 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.36.4.6
retrieving revision 1.36.4.7
diff -u -r1.36.4.6 -r1.36.4.7
--- EmbperlObject.pm 2001/08/29 08:25:22 1.36.4.6
+++ EmbperlObject.pm 2001/09/01 21:50:00 1.36.4.7
@@ -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.36.4.6 2001/08/29 08:25:22 richter Exp $
+# $Id: EmbperlObject.pm,v 1.36.4.7 2001/09/01 21:50:00 richter Exp $
#
###################################################################################
@@ -256,7 +256,7 @@
{
print HTML::Embperl::LOG "[$$]EmbperlObject Found Base: $fn\n" if ($debug);
print HTML::Embperl::LOG "[$$]EmbperlObject path: $searchpath\n" if ($debug);
- my ($basenew, $basepackage) = HTML::Embperl::GetPackageOfFile ($fn, $req -> {'package'} || '', -M _, $ENV{EMBPERL_EP1COMPAT}) ;
+ my ($basenew, $basepackage) = HTML::Embperl::GetPackageOfFile ($fn, $req -> {'package'} || '', -M _, $ENV{EMBPERL_EP1COMPAT} || 0) ;
if (!-f $filename && exists $req -> {object_fallback})
{
@@ -268,7 +268,7 @@
my ($new, $package) ;
- ($new, $package) = HTML::Embperl::GetPackageOfFile ($filename, $req -> {'package'} || '', -M _, $ENV{EMBPERL_EP1COMPAT}) if (!$fallback) ;
+ ($new, $package) = HTML::Embperl::GetPackageOfFile ($filename, $req -> {'package'} || '', -M _, $ENV{EMBPERL_EP1COMPAT} || 0) if (!$fallback) ;
if ($basenew)
{
1.97.4.6 +2 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.97.4.5
retrieving revision 1.97.4.6
diff -u -r1.97.4.5 -r1.97.4.6
--- TODO 2001/04/26 13:54:17 1.97.4.5
+++ TODO 2001/09/01 21:50:00 1.97.4.6
@@ -119,6 +119,8 @@
- print OUT inside loop [Michael Stevens 26.4.01]
+- add filename to error messages [ Michael Stevens 15.08.01]
+
Docs 2.0
--------
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org