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

1 files changed, 205 insertions, 0 deletions

diff --git a/net/p5-Net/files/patch-aa b/net/p5-Net/files/patch-aa
new file mode 100644
index 00000000000..1e811607418
--- /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;
+ 
+ #---------------------------------------------------------------------------
+