5 files changed, 6 insertions, 98 deletions

diff --git a/net/p5-Net-Whois-Raw/Makefile b/net/p5-Net-Whois-Raw/Makefile
index 598e3e3bdcef..566c49b72336 100644
--- a/net/p5-Net-Whois-Raw/Makefile
+++ b/net/p5-Net-Whois-Raw/Makefile
@@ -6,11 +6,12 @@
 #
 
 PORTNAME=	Net-Whois-Raw
-PORTVERSION=	0.20
+PORTVERSION=	0.34
 CATEGORIES=	net perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	Net
 PKGNAMEPREFIX=	p5-
+EXTRACT_SUFX=	.tgz
 
 MAINTAINER=	kappa@freebsd.org.ua
 COMMENT=	Very simple Perl interface to query raw whois data
@@ -20,6 +21,5 @@ INSTALL_TARGET=	pure_install
 
 MAN3=		Net::Whois::Raw.3
 MAN1=		pwhois.1
-MAN3PREFIX=	${PREFIX}/lib/perl5/${PERL_VERSION}
 
 .include <bsd.port.mk>
diff --git a/net/p5-Net-Whois-Raw/distinfo b/net/p5-Net-Whois-Raw/distinfo
index 3bea35720643..883820ff61b3 100644
--- a/net/p5-Net-Whois-Raw/distinfo
+++ b/net/p5-Net-Whois-Raw/distinfo
@@ -1,2 +1,2 @@
-MD5 (Net-Whois-Raw-0.20.tar.gz) = c4587920433b0f9b010e38c4790deb56
-SIZE (Net-Whois-Raw-0.20.tar.gz) = 10221
+MD5 (Net-Whois-Raw-0.34.tgz) = 5fd8c7157d95024d27d48cf53587b7dd
+SIZE (Net-Whois-Raw-0.34.tgz) = 12078
diff --git a/net/p5-Net-Whois-Raw/files/patch-Raw.pm b/net/p5-Net-Whois-Raw/files/patch-Raw.pm
deleted file mode 100644
index 2f68263a553d..000000000000
--- a/net/p5-Net-Whois-Raw/files/patch-Raw.pm
+++ /dev/null
@@ -1,54 +0,0 @@
---- Raw.pm.orig	Fri Mar 22 01:36:28 2002
-+++ Raw.pm	Sun Apr 21 16:29:50 2002
-@@ -23,6 +23,8 @@
-          MIL whois.nic.mil
- 	 COOP whois.nic.coop
- 	 MUSEUM whois.museum
-+	 INFO whois.afilias.net
-+	 BIZ  whois.neulevel.biz
-          AD  whois.ripe.net
-          AL  whois.ripe.net
-          AM  whois.ripe.net
-@@ -130,6 +132,8 @@
- #         ZA  apies.frd.ac.za
- 
- %notfound = (
-+	  'whois.neulevel.biz.error' => '^Not found:',
-+	  'whois.afilias.net.error' => '^NOT FOUND',
-           'whois.nic.cc.error' => '^No match for',
-           'whois.arin.net.error' => '^No match for',
-           'whois.nic.br.error' => 'No match for',
-@@ -180,7 +184,7 @@
-           'ns.litnet.lt.error' => 'No matches found',
-           'whois.adamsnames.tc.error' => 'is not a domain controlled by',
-           'whois.nic.la.error' => '^NO MATCH for',
--          'whois.networksolutions.com.error' => '^No match for',
-+          'whois.networksolutions.com.error' => '^NO MATCH:',
-           'whois.thnic.net.error' => 'No entries found');
- 
- %strip = (
-@@ -421,6 +425,9 @@
-                             ]
-         );
- 
-+$OMIT_MSG = 0;
-+$CHECK_FAIL = 0;
-+
- sub whois {
-     my ($dom, $srv) = @_;
-     my $res;
-@@ -480,12 +487,12 @@
- 
- sub finish {
-     my ($text, $srv) = @_;
--    my $notfound = $notfound{lc($srv)};
-+    my $notfound = $notfound{lc("$srv.error")};
-     my @strip = $strip{lc($srv)} ? @{$strip{lc($srv)}} : ();
-     return $text unless $CHECK_FAIL || $OMIT_MSG;
-     my @lines;
-     MAIN: foreach (split(/\n/, $text)) {
--        return undef if $CHECK_FAIL && /$notfound/;
-+        return undef if $CHECK_FAIL && defined ($notfound) && /$notfound/;
-         if ($OMIT_MSG) {
-             foreach my $re (@strip) {
-                 next MAIN if (/$re/);
diff --git a/net/p5-Net-Whois-Raw/files/patch-pwhois.PL b/net/p5-Net-Whois-Raw/files/patch-pwhois.PL
deleted file mode 100644
index 28dab45fefa2..000000000000
--- a/net/p5-Net-Whois-Raw/files/patch-pwhois.PL
+++ /dev/null
@@ -1,40 +0,0 @@
---- pwhois.PL.orig	Fri Mar 22 01:35:53 2002
-+++ pwhois.PL	Mon Mar 25 14:20:16 2002
-@@ -59,23 +59,27 @@
- 
- =head1 SYNOPSIS
- 
--pwhois perl.com
--pwhois gnu.org
--pwhois -s police.co.il
--pwhois -c there.is.no.tld.called.foobar
--pwhois yahoo.com whois.networksolutions.com
--pwhois -T 10 funet.fi
-+  pwhois perl.com
-+  pwhois gnu.org
-+  pwhois -s police.co.il
-+  pwhois -c there.is.no.tld.called.foobar
-+  pwhois yahoo.com whois.networksolutions.com
-+  pwhois -T 10 funet.fi
- 
- etc etc.....
- 
- =head1 DESCRIPTION
- 
- Just invoke with a domain name, optionally with a whois server name.
--The -s switch attempts to strip the copyright message or disclaimer.
--The -c switch attempts to return an empty answer for failed searches.
--The -T switch takes a parameter that is used for the timeout for
-+
-+The B<-s> switch attempts to strip the copyright message or disclaimer.
-+
-+The B<-c> switch attempts to return an empty answer for failed searches.
-+
-+The B<-T> switch takes a parameter that is used for the timeout for
- connection attempts.
-  
-+
- =head1 AUTHOR
- 
- Ariel Brosh, B<schop@cpan.org>
-
diff --git a/net/p5-Net-Whois-Raw/pkg-descr b/net/p5-Net-Whois-Raw/pkg-descr
index c2c25508e744..fe372d490f1f 100644
--- a/net/p5-Net-Whois-Raw/pkg-descr
+++ b/net/p5-Net-Whois-Raw/pkg-descr
@@ -14,3 +14,5 @@ Usage:
 	print "Hurry up!\n" if !whois('microsoft.com');
 
 -- Alex Kapranoff <kappa@freebsd.org.ua>
+
+WWW: http://search.cpan.org/~despair/Net-Whois-Raw-0.34/lib/Net/Whois/Raw.pm