Mass update of perl5 ports (most bring the port up-to-date with the latest release from CPAN)

Specifics:	p5-Net fixed for IS_INTERACTIVE
		p5-libwww fixed for IS_INTERACTIVE

3 files changed, 206 insertions, 6 deletions

diff --git a/net/p5-Net/Makefile b/net/p5-Net/Makefile
index b4fba798d308..d4fc23942777 100644
--- a/net/p5-Net/Makefile
+++ b/net/p5-Net/Makefile
@@ -3,7 +3,7 @@
 # Date created:				September 30th 1996
 # Whom:	      				James FitzGibbon <jfitz@FreeBSD.org>
 #
-#   $Id: Makefile,v 1.5 1997/04/09 12:00:40 jfitz Exp $
+#   $Id: Makefile,v 1.6 1997/04/20 13:52:49 wosch Exp $
 #
 
 DISTNAME=	libnet-1.05
@@ -19,8 +19,6 @@ BUILD_DEPENDS= 	perl5.003:${PORTSDIR}/lang/perl5 \
 		${PREFIX}/lib/perl5/site_perl/Data/Dumper.pm:${PORTSDIR}/devel/p5-Data-Dumper
 RUN_DEPENDS=	perl5.003:${PORTSDIR}/lang/perl5
 
-IS_INTERACTIVE=	YES
-
 MAN3=		Net::Time.3 Net::DummyInetd.3 Net::NNTP.3 Net::SNPP.3 \
 		Net::POP3.3 Net::Cmd.3 Net::SMTP.3 Net::Domain.3 \
 		Net::FTP.3 Net::Netrc.3 Net::Telnet.3 Net::PH.3
diff --git a/net/p5-Net/files/patch-aa b/net/p5-Net/files/patch-aa
new file mode 100644
index 000000000000..1e8116074185
--- /dev/null
+++ b/net/p5-Net/files/patch-aa
@@ -0,0 +1,205 @@
+--- Configure.orig	Tue Mar  4 04:19:32 1997
++++ Configure	Sun Apr 20 15:20:38 1997
+@@ -203,18 +203,20 @@
+ 
+ #---------------------------------------------------------------------------
+ 
+-if(not(-f $config_pm) && $have_old && not($opt_d))
+- {
+-  $msg = <<EDQ;
+-
+-Ah, I see you already have installed libnet before.
+-
+-Do you want to modify/update your configuration (y|n) ?
+-EDQ
++#if(not(-f $config_pm) && $have_old && not($opt_d))
++# {
++#  $msg = <<EDQ;
++#
++#Ah, I see you already have installed libnet before.
++#
++#Do you want to modify/update your configuration (y|n) ?
++#EDQ
++#
++# $opt_d = 1
++#	unless get_bool($msg,0);
++# }
+ 
+- $opt_d = 1
+-	unless get_bool($msg,0);
+- }
++$opt_d = 0;
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -231,7 +233,8 @@
+ Do you want me to perform hostname lookups (y|n) ?
+ EDQ
+ 
+-$cfg{'test_exist'} = get_bool($msg, $cfg{'test_exist'});
++#$cfg{'test_exist'} = get_bool($msg, $cfg{'test_exist'});
++$cfg{'test_exist'} = 1;
+ 
+ print <<EDQ unless $cfg{'test_exist'};
+ 
+@@ -246,71 +249,54 @@
+ 
+ #---------------------------------------------------------------------------
+ 
+-print <<EDQ;
+-
+-The following questions all require a list of host names, separated
+-with spaces. If you do not have a host avaliable for any of the
+-services, then enter a single space, followed by <CR>. To accept the
+-default, hit <CR>
+-
+-EDQ
++#print <<EDQ;
++#
++#The following questions all require a list of host names, separated
++#with spaces. If you do not have a host avaliable for any of the
++#services, then enter a single space, followed by <CR>. To accept the
++#default, hit <CR>
++#
++#EDQ
+ 
+ $msg = 'Enter a list of avaliable NNTP hosts :';
+ 
+-$def = $cfg{'nntp_hosts'} ||
+-	[ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
+-
+-$cfg{'nntp_hosts'} = get_host_list($msg,$def);
++$cfg{'nntp_hosts'} = [ default_hostname($ENV{NNTPSERVER},$ENV{NEWSHOST},'news') ];
+ 
+ #---------------------------------------------------------------------------
+ 
+ $msg = 'Enter a list of avaliable SMTP hosts :';
+ 
+-$def = $cfg{'smtp_hosts'} ||
+-	[ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
+-
+-$cfg{'smtp_hosts'} = get_host_list($msg,$def);
++$cfg{'smtp_hosts'} = [ default_hostname(split(/:/,$ENV{SMTPHOSTS} || ""), 'mailhost') ];
+ 
+ #---------------------------------------------------------------------------
+ 
+ $msg = 'Enter a list of avaliable POP3 hosts :';
+ 
+-$def = $cfg{'pop3_hosts'} || [];
+-
+-$cfg{'pop3_hosts'} = get_host_list($msg,$def);
++$cfg{'pop3_hosts'} = [];
+ 
+ #---------------------------------------------------------------------------
+ 
+ $msg = 'Enter a list of avaliable SNPP hosts :';
+ 
+-$def = $cfg{'snpp_hosts'} || [];
+-
+-$cfg{'snpp_hosts'} = get_host_list($msg,$def);
++$cfg{'snpp_hosts'} = [];
+ 
+ #---------------------------------------------------------------------------
+ 
+ $msg = 'Enter a list of avaliable PH Hosts   :'  ;
+ 
+-$def = $cfg{'ph_hosts'} ||
+-	[ default_hostname('dirserv') ];
+-
+-$cfg{'ph_hosts'}   =  get_host_list($msg,$def);
++$cfg{'ph_hosts'}   =  [ default_hostname('dirserv') ];
+ 
+ #---------------------------------------------------------------------------
+ 
+ $msg = 'Enter a list of avaliable TIME Hosts   :'  ;
+ 
+-$def = $cfg{'time_hosts'} || [];
+-
+-$cfg{'time_hosts'} = get_host_list($msg,$def);
++$cfg{'time_hosts'} = [];
+ 
+ #---------------------------------------------------------------------------
+ 
+ $msg = 'Enter a list of avaliable DAYTIME Hosts   :'  ;
+ 
+-$def = $cfg{'daytime_hosts'} || $cfg{'time_hosts'};
+-
+-$cfg{'daytime_hosts'} = get_host_list($msg,$def);
++$cfg{'daytime_hosts'} = [];
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -326,9 +312,7 @@
+ FTP proxy hostname :
+ EDQ
+ 
+-$cfg{'ftp_firewall'} ||= $ENV{FTP_FIREWALL};
+-
+-$cfg{'ftp_firewall'} = get_hostname($msg,$cfg{'ftp_firewall'});
++$cfg{'ftp_firewall'} = $ENV{FTP_FIREWALL};
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -349,28 +333,23 @@
+ 
+ #---------------------------------------------------------------------------
+ 
+-print <<EDQ;
+-
+-Normally when FTP needs a data connection the client tells the server
+-a port to connect to, and the server initiates a connection to the client.
+-
+-Some setups, in particular firewall setups, can/do not work using this
+-protocol. In these situations the client must make the connection to the
+-server, this is called a passive transfer.
+-EDQ
++#print <<EDQ;
++#
++#Normally when FTP needs a data connection the client tells the server
++#a port to connect to, and the server initiates a connection to the client.
++#
++#Some setups, in particular firewall setups, can/do not work using this
++#protocol. In these situations the client must make the connection to the
++#server, this is called a passive transfer.
++#EDQ
+ 
+ $msg = "\nShould all FTP connections via a firewall/proxy be passive (y|n) ?";
+ 
+-$cfg{'ftp_ext_passive'} ||= 0;
+-
+-$cfg{'ftp_ext_passive'} = get_bool($msg,$cfg{'ftp_ext_passive'});
+-
+-
+-$cfg{'ftp_int_passive'} ||= 0;
++$cfg{'ftp_ext_passive'} = 0;
+ 
+ $msg = "\nShould all other FTP connections be passive (y|n) ?";
+ 
+-$cfg{'ftp_int_passive'} = get_bool($msg,$cfg{'ftp_int_passive'});
++$cfg{'ftp_int_passive'} = 0;
+ 
+ 
+ #---------------------------------------------------------------------------
+@@ -385,10 +364,10 @@
+   $cfg{'inet_domain'} = Net::Domain::hostdomain();
+  }
+ 
+-$ans = Prompt("\nWhat is your local internet domain name :",
+-		$cfg{'inet_domain'});
++#$ans = Prompt("\nWhat is your local internet domain name :",
++#		$cfg{'inet_domain'});
+ 
+-$cfg{'inet_domain'} = ($ans =~ /(\S+)/)[0];
++$cfg{'inet_domain'} = "";
+ 
+ #---------------------------------------------------------------------------
+ 
+@@ -404,7 +383,7 @@
+ Do you want me to run these tests (y|n) ?
+ EDQ
+ 
+-$cfg{'test_hosts'} = get_bool($msg,$cfg{'test_hosts'});
++$cfg{'test_hosts'} = 0;
+ 
+ #---------------------------------------------------------------------------
+ 
diff --git a/net/p5-Net/pkg-plist b/net/p5-Net/pkg-plist
index 1f91ea34147a..797258f22da3 100644
--- a/net/p5-Net/pkg-plist
+++ b/net/p5-Net/pkg-plist
@@ -9,7 +9,6 @@ lib/perl5/site_perl/Net/Telnet.pm
 lib/perl5/site_perl/Net/Netrc.pm
 lib/perl5/site_perl/Net/SMTP.pm
 lib/perl5/site_perl/Net/Cmd.pm
-lib/perl5/site_perl/Net/Config.pm
 lib/perl5/site_perl/Net/PH.pm
 lib/perl5/man/man3/Net::Time.3.gz
 lib/perl5/man/man3/Net::DummyInetd.3.gz
@@ -24,5 +23,3 @@ lib/perl5/man/man3/Net::Telnet.3.gz
 lib/perl5/man/man3/Net::Cmd.3.gz
 lib/perl5/man/man3/Net::PH.3.gz
 lib/perl5/site_perl/i386-freebsd/auto/Net/.packlist
-@dirrm lib/perl5/site_perl/i386-freebsd/auto/Net
-@dirrm lib/perl5/site_perl/Net