Import of pkgsrc-2013Q2

www/p5-HTTP-Request-Form/DESCR

@@ -0,0 +1,8 @@
+This is an extension of the HTTP::Request suite. It allows easy
+processing of forms in a user agent by filling out fields,
+querying fields, selections and buttons and pressing buttons. It
+uses HTML::TreeBuilder generated parse trees of documents
+(especially the forms parts extracted with extract_links) and
+generates its own internal representation of forms from which
+it then generates the request objects to process the form
+application.

www/p5-HTTP-Request-Form/Makefile

@@ -0,0 +1,25 @@
+# $NetBSD: Makefile,v 1.26 2013/05/31 12:42:45 wiz Exp $
+#
+
+DISTNAME=	HTTP-Request-Form-0.952
+PKGNAME=	p5-${DISTNAME:S/952/9.5.2/}
+PKGREVISION=	6
+SVR4_PKGNAME=	p5htt
+CATEGORIES=	www perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN:=HTTP/}
+
+MAINTAINER=	pkgsrc-users@NetBSD.org
+HOMEPAGE=	http://search.cpan.org/dist/HTTP-Request-Form/
+COMMENT=	Construct HTTP::Request objects for form processing
+
+DEPENDS+=	p5-libwww-[0-9]*:../../www/p5-libwww
+DEPENDS+=	p5-URI-[0-9]*:../../www/p5-URI
+DEPENDS+=	p5-HTML-Tree-[0-9]*:../../www/p5-HTML-Tree
+
+PERL5_PACKLIST=		auto/HTTP/Request/Form/.packlist
+
+pre-configure:
+	${FIND} ${WRKSRC} -name "*.orig" -type f | ${XARGS} ${RM} -f
+
+.include "../../lang/perl5/module.mk"
+.include "../../mk/bsd.pkg.mk"

www/p5-HTTP-Request-Form/distinfo

@@ -0,0 +1,6 @@
+$NetBSD: distinfo,v 1.4 2008/08/05 11:32:21 he Exp $
+
+SHA1 (HTTP-Request-Form-0.952.tar.gz) = 0c161f9dba58d884b7b7ad4547127fd44a97e402
+RMD160 (HTTP-Request-Form-0.952.tar.gz) = 57d58d67ff22a1db72f639164f74a4e7614d9f02
+Size (HTTP-Request-Form-0.952.tar.gz) = 10575 bytes
+SHA1 (patch-aa) = b82d66b157062ccaf72e4047a632bfa713eca812

www/p5-HTTP-Request-Form/patches/patch-aa

@@ -0,0 +1,15 @@
+$NetBSD: patch-aa,v 1.1 2008/08/05 11:33:24 he Exp $
+
+From CPAN PR#7583.
+
+--- Form.pm.orig	2001-12-01 12:05:54.000000000 +0100
++++ Form.pm
+@@ -437,7 +437,7 @@ sub checkbox_ischecked {
+ 
+ sub is_checkbox {
+    my ($self, $name) = @_;
+-   if (defined($self->{'checkboxstate'}->($name))) {
++   if (defined($self->{'checkboxstate'}->{$name})) {
+       return 1;
+    } else {
+       return undef;