1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-23 00:43:28 +00:00

Upgrade to 2.6 (with typo fix patch).

This commit is contained in:
Jun Kuriyama 2002-10-21 07:21:29 +00:00
parent 7f76c61641
commit cd316a0b3b
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=68475
3 changed files with 9 additions and 6 deletions

View File

@ -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

View File

@ -1 +1 @@
MD5 (HTML-Template-2.5.tar.gz) = 2f8cb555618b2d1180534455c1e61d51
MD5 (HTML-Template-2.6.tar.gz) = dbd1c0c23fe323123deb9212c82a6f2d

View File

@ -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);