[Templates-cvs] cvs commit: TT3/lib/Template Parser.pm
cvs@template-toolkit.org
cvs@template-toolkit.org
Fri, 03 Dec 2004 14:25:17 +0000
cvs 04/12/03 14:25:17
Modified: lib/Template Parser.pm
Log:
* left parse_assign() method alone for now
Revision Changes Path
1.20 +4 -3 TT3/lib/Template/Parser.pm
Index: Parser.pm
===================================================================
RCS file: /template-toolkit/TT3/lib/Template/Parser.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- Parser.pm 2004/12/03 13:38:15 1.19
+++ Parser.pm 2004/12/03 14:25:17 1.20
@@ -18,7 +18,7 @@
# modify it under the same terms as Perl itself.
#
# REVISION
-# $Id: Parser.pm,v 1.19 2004/12/03 13:38:15 abw Exp $
+# $Id: Parser.pm,v 1.20 2004/12/03 14:25:17 abw Exp $
#
#========================================================================
@@ -29,7 +29,7 @@
use Template::Base;
use base qw( Template::Base );
-our $VERSION = sprintf("%d.%02d", q$Revision: 1.19 $ =~ /(\d+)\.(\d+)/);
+our $VERSION = sprintf("%d.%02d", q$Revision: 1.20 $ =~ /(\d+)\.(\d+)/);
our $DEBUG = 0 unless defined $DEBUG;
our $ERROR = '';
our $THROW = 'parser';
@@ -1331,6 +1331,7 @@
my $expr = $self->parse_var_assign_expr(@_) || return;
unshift(@$expr, 'assign');
return $expr;
+
my ($pkg, $file, $line) = caller(0);
return $self->error("deprecated parse_assign() method called at $file line $line\n");
}
@@ -2645,7 +2646,7 @@
=head1 VERSION
-$Revision: 1.19 $
+$Revision: 1.20 $
=head1 COPYRIGHT