[Templates-cvs] cvs commit: TT3/lib/Template/Directive Process.pm
cvs@template-toolkit.org
cvs@template-toolkit.org
Fri, 03 Dec 2004 14:32:39 +0000
cvs 04/12/03 14:32:39
Modified: lib/Template/Directive Process.pm
Log:
* changed parse_template_name() to parse_path()
Revision Changes Path
1.5 +4 -4 TT3/lib/Template/Directive/Process.pm
Index: Process.pm
===================================================================
RCS file: /template-toolkit/TT3/lib/Template/Directive/Process.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- Process.pm 2004/11/19 17:40:35 1.4
+++ Process.pm 2004/12/03 14:32:39 1.5
@@ -15,7 +15,7 @@
# modify it under the same terms as Perl itself.
#
# REVISION
-# $Id: Process.pm,v 1.4 2004/11/19 17:40:35 abw Exp $
+# $Id: Process.pm,v 1.5 2004/12/03 14:32:39 abw Exp $
#
#========================================================================
@@ -26,7 +26,7 @@
use Template::Directive;
use base qw( Template::Directive );
-our $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
+our $VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);
our $DEBUG = 0 unless defined $DEBUG;
our $ERROR = '';
our $KEYWORD = 'PROCESS';
@@ -38,7 +38,7 @@
my $parser = $match->{ parser }
|| return $self->error('no parser defined');
- my $template = $parser->parse_template_name($textref)
+ my $template = $parser->parse_path($textref)
|| return $self->error('missing template name in ',
$self->keyword($match), ' directive');
@@ -79,7 +79,7 @@
=head1 VERSION
-$Revision: 1.4 $
+$Revision: 1.5 $
=head1 COPYRIGHT