From cd316a0b3b7efd346fd99f06eaf5a68620f69565 Mon Sep 17 00:00:00 2001 From: Jun Kuriyama Date: Mon, 21 Oct 2002 07:21:29 +0000 Subject: Upgrade to 2.6 (with typo fix patch). --- www/p5-HTML-Template/Makefile | 3 +-- www/p5-HTML-Template/distinfo | 2 +- www/p5-HTML-Template/files/patch-Template.pm | 10 +++++++--- 3 files changed, 9 insertions(+), 6 deletions(-) (limited to 'www/p5-HTML-Template') diff --git a/www/p5-HTML-Template/Makefile b/www/p5-HTML-Template/Makefile index a06a347970fd..5509f81fc0d8 100644 --- a/www/p5-HTML-Template/Makefile +++ b/www/p5-HTML-Template/Makefile @@ -6,8 +6,7 @@ # PORTNAME= HTML-Template -PORTVERSION= 2.5 -PORTREVISION= 1 +PORTVERSION= 2.6 CATEGORIES= www perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= HTML diff --git a/www/p5-HTML-Template/distinfo b/www/p5-HTML-Template/distinfo index cad2aeddbf71..1f26b19d1787 100644 --- a/www/p5-HTML-Template/distinfo +++ b/www/p5-HTML-Template/distinfo @@ -1 +1 @@ -MD5 (HTML-Template-2.5.tar.gz) = 2f8cb555618b2d1180534455c1e61d51 +MD5 (HTML-Template-2.6.tar.gz) = dbd1c0c23fe323123deb9212c82a6f2d diff --git a/www/p5-HTML-Template/files/patch-Template.pm b/www/p5-HTML-Template/files/patch-Template.pm index 4e71f9db1d5b..ba404e4db2af 100644 --- a/www/p5-HTML-Template/files/patch-Template.pm +++ b/www/p5-HTML-Template/files/patch-Template.pm @@ -1,5 +1,5 @@ --- Template.pm.orig Sat Feb 2 08:01:37 2002 -+++ Template.pm Tue Mar 12 11:24:20 2002 ++++ Template.pm Thu May 30 12:33:34 2002 @@ -863,7 +863,9 @@ use strict; # and no funny business, either. @@ -10,7 +10,7 @@ # define accessor constants used to improve readability of array # accesses into "objects". I used to use 'use constant' but that -@@ -2011,7 +2013,7 @@ +@@ -2011,10 +2013,10 @@ push(@ifstack, $cond); } elsif ($which eq '/TMPL_IF' or $which eq '/TMPL_UNLESS') { @@ -18,4 +18,8 @@ + $options->{debug} and print STDERR "### HTML::Template Debug ### $fname : line $fcounter : $which end\n"; my $cond = pop(@ifstack); - die "HTML::Template->new() : found with no matching at $fname : line $fcounter." unless defined $cond; +- die "HTML::Template->new() : found with no matching at $fname : line $fcounter." unless defined $cond; ++ die "HTML::Template->new() : found <${which}> with no matching at $fname : line $fcounter." unless defined $cond; + if ($which eq '/TMPL_IF') { + die "HTML::Template->new() : found incorrectly terminating a (use ) at $fname : line $fcounter.\n" + if ($cond->[HTML::Template::COND::WHICH] == HTML::Template::COND::WHICH_UNLESS); -- cgit v1.2.3