From 2a9cb514dae035ee55d64e51fda1af5dbd646b98 Mon Sep 17 00:00:00 2001
From: Mathieu Arnold <mat@FreeBSD.org>
Date: Mon, 27 Dec 2004 12:23:59 +0000
Subject: [PATCH] Update to 1.08

---
 www/p5-WWW-Mechanize/Makefile | 7 ++++---
 www/p5-WWW-Mechanize/distinfo | 4 ++--
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/www/p5-WWW-Mechanize/Makefile b/www/p5-WWW-Mechanize/Makefile
index f04d23c8ed54..411c046c9a3f 100644
--- a/www/p5-WWW-Mechanize/Makefile
+++ b/www/p5-WWW-Mechanize/Makefile
@@ -6,8 +6,7 @@
 #
 
 PORTNAME=	WWW-Mechanize
-PORTVERSION=	1.04
-PORTREVISION=	1
+PORTVERSION=	1.08
 CATEGORIES=	www perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	WWW
@@ -36,9 +35,11 @@ BUILD_DEPENDS+=	${SITE_PERL}/File/Temp.pm:${PORTSDIR}/devel/p5-File-Temp \
 BUILD_DEPENDS+=	${SITE_PERL}/File/Spec.pm:${PORTSDIR}/devel/p5-File-Spec
 
 post-patch:
-	${PERL} -pi \
+	@${PERL} -pi \
 		-e 's/^our\s+([\$$\@]\w+)/use vars qw($$1);$$1/;' \
 		-e 's/^our\s+([\%]\w+)/use vars qw($$1)/;' \
+		-e 's/(?:my )?\$$fh/FH/;' \
+		-e 's/FH, ">",/FH, ">"./;' \
 		-e '$$_="" if /use warnings/;' \
 		${WRKSRC}/lib/WWW/Mechanize.pm ${WRKSRC}/lib/WWW/Mechanize/Link.pm
 .endif
diff --git a/www/p5-WWW-Mechanize/distinfo b/www/p5-WWW-Mechanize/distinfo
index 8816ba47cfa0..dcabc46260ce 100644
--- a/www/p5-WWW-Mechanize/distinfo
+++ b/www/p5-WWW-Mechanize/distinfo
@@ -1,2 +1,2 @@
-MD5 (WWW-Mechanize-1.04.tar.gz) = 1e88a34f33acdaba8cfbf2949ec09556
-SIZE (WWW-Mechanize-1.04.tar.gz) = 90080
+MD5 (WWW-Mechanize-1.08.tar.gz) = ca5d360ff754cad2a4154a089588e16c
+SIZE (WWW-Mechanize-1.08.tar.gz) = 100811