cpet/freebsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Upgrade to 2.7.

Browse Source 
Submitted by:	Alex Kapranoff <kappa@rambler-co.ru>
This commit is contained in:
Jun Kuriyama 2004-06-25 13:47:03 +00:00
parent 44285aa4ba
commit 3591c5e650
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=112242
3 changed files with 7 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
www/p5-HTML-Template/Makefile
View File

@ -6,7 +6,7 @@
#
PORTNAME= HTML-Template
PORTVERSION= 2.6
PORTVERSION= 2.7
CATEGORIES= www perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= HTML

4
www/p5-HTML-Template/distinfo
View File

@ -1,2 +1,2 @@
MD5 (HTML-Template-2.6.tar.gz) = dbd1c0c23fe323123deb9212c82a6f2d
SIZE (HTML-Template-2.6.tar.gz) = 60820
MD5 (HTML-Template-2.7.tar.gz) = 376f572659b4c0c40a9dd68823a0dd6b
SIZE (HTML-Template-2.7.tar.gz) = 62478

21
www/p5-HTML-Template/files/patch-Template.pm
View File

@ -1,25 +1,12 @@
--- Template.pm.orig Sat Feb 2 08:01:37 2002
+++ Template.pm Thu May 30 12:33:34 2002
@@ -863,7 +863,9 @@
--- Template.pm.orig Fri Jun 18 21:42:06 2004
+++ Template.pm Fri Jun 25 13:33:50 2004
@@ -890,7 +890,9 @@
use strict; # and no funny business, either.
use Carp; # generate better errors with more context
+BEGIN { unshift(@INC, "%%PERL_INC%%"); }
use File::Spec; # generate paths that work on all platforms
+shift(@INC);
use Digest::MD5 qw(md5_hex); # generate cache keys
# define accessor constants used to improve readability of array
# accesses into "objects". I used to use 'use constant' but that
@@ -2011,10 +2013,10 @@
push(@ifstack, $cond);
} elsif ($which eq '/TMPL_IF' or $which eq '/TMPL_UNLESS') {
- $options->{debug} and print STDERR "### HTML::Template Debug ###$fname : line $fcounter : $which end\n";
+ $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;
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);