ports/66714: [PATCH] www/p5-WWW-Mechanize: update to 1.02

[Lars Eggert]

>Number:         66714
>Category:       ports
>Synopsis:       [PATCH] www/p5-WWW-Mechanize: update to 1.02
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          update
>Submitter-Id:   current-users
>Arrival-Date:   Sun May 16 10:00:41 PDT 2004
>Closed-Date:
>Last-Modified:
>Originator:     Lars Eggert
>Release:        FreeBSD 5.2-CURRENT i386
>Organization:
>Environment:
System: FreeBSD localhost 5.2-CURRENT FreeBSD 5.2-CURRENT #0: Tue May  4 21:57:44 PDT
>Description:
- Update to 1.02

Port maintainer (tobez at FreeBSD.org) is cc'd.

Generated with FreeBSD Port Tools 0.50
>How-To-Repeat:
>Fix:

--- p5-WWW-Mechanize-1.02.patch begins here ---
? p5-WWW-Mechanize-1.02.tbz
? work
Index: Makefile
===================================================================
RCS file: /home/ncvs/ports/www/p5-WWW-Mechanize/Makefile,v
retrieving revision 1.7
diff -u -u -r1.7 Makefile
--- Makefile	15 Feb 2004 15:25:37 -0000	1.7
+++ Makefile	16 May 2004 16:53:20 -0000
@@ -6,7 +6,7 @@
 #
 
 PORTNAME=	WWW-Mechanize
-PORTVERSION=	0.72
+PORTVERSION=	1.02
 CATEGORIES=	www perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	WWW
@@ -24,8 +24,10 @@
 
 PERL_CONFIGURE=	yes
 
-MAN3=		WWW::Mechanize.3 WWW::Mechanize::Examples.3 \
-		WWW::Mechanize::FAQ.3 WWW::Mechanize::Link.3
+MAN1PREFIX=	${PREFIX}
+MAN3=		WWW::Mechanize.3 WWW::Mechanize::Cookbook.3 \
+		WWW::Mechanize::Examples.3 WWW::Mechanize::FAQ.3 \
+		WWW::Mechanize::Link.3
 MAN1=		mech-dump.1
 
 .include <bsd.port.pre.mk>
Index: distinfo
===================================================================
RCS file: /home/ncvs/ports/www/p5-WWW-Mechanize/distinfo,v
retrieving revision 1.7
diff -u -u -r1.7 distinfo
--- distinfo	15 Feb 2004 15:25:37 -0000	1.7
+++ distinfo	16 May 2004 16:53:20 -0000
@@ -1,2 +1,2 @@
-MD5 (WWW-Mechanize-0.72.tar.gz) = c53a8dd33de1c01bc08078096c72bf29
-SIZE (WWW-Mechanize-0.72.tar.gz) = 82958
+MD5 (WWW-Mechanize-1.02.tar.gz) = 81dba4c03fe003ce3f715e6432bdb1aa
+SIZE (WWW-Mechanize-1.02.tar.gz) = 86219
Index: pkg-plist
===================================================================
RCS file: /home/ncvs/ports/www/p5-WWW-Mechanize/pkg-plist,v
retrieving revision 1.6
diff -u -u -r1.6 pkg-plist
--- pkg-plist	7 Oct 2003 13:05:42 -0000	1.6
+++ pkg-plist	16 May 2004 16:53:20 -0000
@@ -1,10 +1,9 @@
 bin/mech-dump
 %%SITE_PERL%%/WWW/Mechanize.pm
+%%SITE_PERL%%/WWW/Mechanize/Cookbook.pod
 %%SITE_PERL%%/WWW/Mechanize/Examples.pod
 %%SITE_PERL%%/WWW/Mechanize/FAQ.pod
 %%SITE_PERL%%/WWW/Mechanize/Link.pm
 %%SITE_PERL%%/%%PERL_ARCH%%/auto/WWW/Mechanize/.packlist
 @dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/WWW/Mechanize
- at unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/WWW 2>/dev/null || true
 @dirrm %%SITE_PERL%%/WWW/Mechanize
- at unexec rmdir %D/%%SITE_PERL%%/WWW 2>/dev/null || true
Index: files/patch-Makefile.PL
===================================================================
RCS file: /home/ncvs/ports/www/p5-WWW-Mechanize/files/patch-Makefile.PL,v
retrieving revision 1.2
diff -u -u -r1.2 patch-Makefile.PL
--- files/patch-Makefile.PL	3 Oct 2003 10:29:21 -0000	1.2
+++ files/patch-Makefile.PL	16 May 2004 16:53:20 -0000
@@ -1,56 +1,11 @@
---- Makefile.PL.orig	Mon Aug 18 03:35:42 2003
-+++ Makefile.PL	Fri Oct  3 11:47:30 2003
-@@ -5,28 +5,7 @@
- use constant FLAG_SKIPMECHDUMP => "t/SKIP-MECH-FORMS";
- 
- # Much logic stolen fromm libwww-perl's Makefile.PL
--my $skiplive = 0;
--
--require IO::Socket;
--my $s = IO::Socket::INET->new(PeerAddr => "www.google.com:80",
--			      Timeout  => 10,
--			     );
--if ($s) {
--    close($s);
--    $skiplive = 0;
--} else {
--    print <<EOT;
--
--It seems that you are not directly connected to the Internet.  Some
--of the WWW::Mechanize tests interact with websites such as Google,
--in addition to its own internal tests.
--
--EOT
--
--    if ( prompt("Do you want to skip these tests?", "y") =~ /^y/i ) {
--	$skiplive = 1;
--    }
--} # failed connect
-+my $skiplive = 1;
- 
- my $tests = 't/*.t';
- $tests .= ' t/live/*.t' unless $skiplive;
-@@ -53,17 +32,17 @@
-     'test' => { TESTS => $tests },
+--- m	Sun May 16 18:31:01 2004
++++ Makefile.PL	Sun May 16 18:32:35 2004
+@@ -63,7 +63,7 @@
+     clean           => { FILES => join( " ", FLAG_SKIPMECHDUMP, 'WWW-Mechanize-0*' ) },
  };
  
 -if ( prompt( "Do you want to install the mech-dump utility?", "y" ) =~ /^y/i ) {
-+#if ( prompt( "Do you want to install the mech-dump utility?", "y" ) =~ /^y/i ) {
-     $parms->{EXE_FILES} = [ 'script/mech-dump' ];
++if (1 or prompt( "Do you want to install the mech-dump utility?", "y" ) =~ /^y/i ) {
+     $parms->{EXE_FILES} = [ 'bin/mech-dump' ];
      $parms->{PREREQ_PM}->{'Getopt::Long'} = 0;
      $parms->{PREREQ_PM}->{'Pod::Usage'} = 0;
- 
--    local @ARGV = FLAG_SKIPMECHDUMP;
-+    local @ARGV = (@ARGV, FLAG_SKIPMECHDUMP);
-     rm_f();
--} else {
--    local @ARGV = FLAG_SKIPMECHDUMP;
--    touch();
--}
-+#} else {
-+#    local @ARGV = FLAG_SKIPMECHDUMP;
-+#    touch();
-+#}
- 
- 
- eval { require IO::Socket::SSL };
--- p5-WWW-Mechanize-1.02.patch ends here ---

>Release-Note:
>Audit-Trail:
>Unformatted: