[Templates-cvs] cvs commit: TT3/lib/Template Compiler.pm
cvs@template-toolkit.org
cvs@template-toolkit.org
Sun, 12 Dec 2004 17:57:00 +0000
cvs 04/12/12 17:56:59
Modified: lib/Template Compiler.pm
Log:
*** empty log message ***
Revision Changes Path
1.6 +9 -3 TT3/lib/Template/Compiler.pm
Index: Compiler.pm
===================================================================
RCS file: /template-toolkit/TT3/lib/Template/Compiler.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Compiler.pm 2004/12/10 15:00:11 1.5
+++ Compiler.pm 2004/12/12 17:56:59 1.6
@@ -16,7 +16,7 @@
# modify it under the same terms as Perl itself.
#
# REVISION
-# $Id: Compiler.pm,v 1.5 2004/12/10 15:00:11 abw Exp $
+# $Id: Compiler.pm,v 1.6 2004/12/12 17:56:59 abw Exp $
#
#========================================================================
@@ -30,7 +30,7 @@
use Template::Base;
use base qw( Template::Base );
-our $VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);
+our $VERSION = sprintf("%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/);
our $DEBUG = 0 unless defined $DEBUG;
our $ERROR = '';
@@ -131,6 +131,9 @@
# configuration item, or in the $SCANNER package variable.
my $scanner = $self->{ scanner } ||= $self->pkgvar( SCANNER => $SCANNER );
+# $self->debug("creating new scanner with args: ",
+# $self->dump_hash($self->{ config }), "\n");
+
# now create a new one
return $scanner->new($config)
|| $self->error('failed to create scanner: ', $scanner->error());
@@ -162,6 +165,9 @@
my $generator = $self->{ generator }
||= $self->pkgvar( GENERATOR => $GENERATOR );
+# $self->debug("creating new generator with args: ",
+# $self->dump_hash($self->{ config }), "\n");
+
# now create a new one
return $generator->new($self->{ config })
|| $self->error('failed to create generator: ', $generator->error());
@@ -195,7 +201,7 @@
=head1 VERSION
-$Revision: 1.5 $
+$Revision: 1.6 $
=head1 COPYRIGHT