From 41a56135d1e8a68844e4c575702cdbad451d7322 Mon Sep 17 00:00:00 2001
From: Mark Linimon <linimon@FreeBSD.org>
Date: Sat, 8 Sep 2007 00:45:08 +0000
Subject: Remove support for antique perl.

Hat:	portmgr
---
 www/p5-CGI-Kwiki/Makefile                                |  9 ---------
 www/p5-CGI-Kwiki/files/p5005-patch-CGI-Kwiki-Template.pm | 12 ------------
 2 files changed, 21 deletions(-)
 delete mode 100644 www/p5-CGI-Kwiki/files/p5005-patch-CGI-Kwiki-Template.pm

(limited to 'www/p5-CGI-Kwiki')

diff --git a/www/p5-CGI-Kwiki/Makefile b/www/p5-CGI-Kwiki/Makefile
index 29b71aac0ff6..f484cf7d21b3 100644
--- a/www/p5-CGI-Kwiki/Makefile
+++ b/www/p5-CGI-Kwiki/Makefile
@@ -50,15 +50,6 @@ post-configure:
 		     -e 'if (/manifypods :/) {$$_ .= "\tlib/CGI/Kwiki/Config.pm \\\n\tlib/CGI/Kwiki/Config_yaml.pm \\\n" };' \
 		     -e 'if (/\@\$$\(POD2MAN\)/) { $$_ .= "\tlib/CGI/Kwiki/Config.pm \\\n\t\$$(INST_MAN3DIR)/CGI::Kwiki::Config.\$$(MAN3EXT) \\\n\tlib/CGI/Kwiki/Config_yaml.pm \\\n\t\$$(INST_MAN3DIR)/CGI::Kwiki::Config_yaml.\$$(MAN3EXT) \\\n"};' \
 			${WRKSRC}/Makefile
-.if ${PERL_LEVEL} < 500601
-EXTRA_PATCHES=	${FILESDIR}/p5005-patch-CGI-Kwiki-Template.pm
-post-patch:
-	${PERL} -pi -e '$$_ = "" if /warnings/;' \
-	             -e 's/\$$\w+(->\w+)?->\$$\w+\b(?!\()/$$&()/g;' \
-		     ${WRKSRC}/lib/CGI/Kwiki/New.pm \
-		     ${WRKSRC}/lib/CGI/Kwiki/Prefs.pm
-	@${FIND} ${WRKSRC} -name \*.orig | ${XARGS} ${RM}
-.endif
 .endif
 
 .include <bsd.port.post.mk>
diff --git a/www/p5-CGI-Kwiki/files/p5005-patch-CGI-Kwiki-Template.pm b/www/p5-CGI-Kwiki/files/p5005-patch-CGI-Kwiki-Template.pm
deleted file mode 100644
index 23bf24573e53..000000000000
--- a/www/p5-CGI-Kwiki/files/p5005-patch-CGI-Kwiki-Template.pm
+++ /dev/null
@@ -1,12 +0,0 @@
---- lib/CGI/Kwiki/Template.pm.orig	Fri Aug 29 09:30:19 2003
-+++ lib/CGI/Kwiki/Template.pm	Wed Oct 15 11:37:23 2003
-@@ -71,7 +71,8 @@
-     my ($self, $text, $v) = @_;
-     my $re;
-     $text = $self->loc($text);
--    $re = qr/\[((?:(?>[^\[\]]+)|(??{$re}))*)\]/;
-+    #$re = qr/\[((?:(?>[^\[\]]+)|(??{$re}))*)\]/;
-+    $re = qr/\[((?:(?>[^\[\]]+)|\[[^\[\]]*\])*)\]/;
-     $text =~ s{$re}
-               {<a href="[% script %]?$1">$1</a>}g;
-     $text =~ s{\[%\s+(\w+)\s+%\]\n?}
-- 
cgit v1.2.3