From cd316a0b3b7efd346fd99f06eaf5a68620f69565 Mon Sep 17 00:00:00 2001
From: Jun Kuriyama <kuriyama@FreeBSD.org>
Date: Mon, 21 Oct 2002 07:21:29 +0000
Subject: [PATCH] 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(-)

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 </${which}> with no matching <TMPL_IF> at $fname : line $fcounter." unless defined $cond;
+-	die "HTML::Template->new() : found </${which}> with no matching <TMPL_IF> at $fname : line $fcounter." unless defined $cond;
++	die "HTML::Template->new() : found <${which}> with no matching <TMPL_IF> at $fname : line $fcounter." unless defined $cond;
+ 	if ($which eq '/TMPL_IF') {
+ 	  die "HTML::Template->new() : found </TMPL_IF> incorrectly terminating a <TMPL_UNLESS> (use </TMPL_UNLESS>) at $fname : line $fcounter.\n" 
+ 	    if ($cond->[HTML::Template::COND::WHICH] == HTML::Template::COND::WHICH_UNLESS);