Fix problems with recent perl as:
Can't locate getopt.pl in @INC (@INC contains:...
by adding two patches.
  patches/patch-agent_test_TEST
  patches/patch-bin_perload

See the thread starting with:
| To: tech-pkg@NetBSD.org
| Subject: broken packages for 2013q2
| From: David Holland <dholland-pkgtech@NetBSD.org>
| Date: Wed, 12 Jun 2013 04:02:11 +0000
  or
http://mail-index.netbsd.org/tech-pkg/2013/06/12/msg011548.html


(mef)

$NetBSD: patch-agent_test_TEST,v 1.1 2013/06/16 00:56:44 mef Exp $

Can't locate getopt.pl in @INC (@INC contains:
...
at ./TEST line 57.  
 *** Error  code 2

--- agent/test/TEST.orig	2001-03-18 03:31:28.000000000 +0900
+++ agent/test/TEST	2013-06-15 12:21:11.000000000 +0900
@@ -54,8 +54,8 @@ $ENV{'LOCKEXT'} = $cfsh'd_flexfnam eq 'd
 $failed = 0;
 $how_many = 0;
 
-require 'getopt.pl';
-&Getopt;
+use Getopt::Std;
+getopt();
 
 $mailagent = 'mailagent';			# Default program (dataloaded version)
 $mailagent = 'magent' if $opt_n;	# Use non-dataloaded version

$NetBSD: patch-bin_perload,v 1.1 2013/06/16 00:56:44 mef Exp $

Extracting agent/magent (with variable substitutions)
perl ../bin/perload -o magent > mailagent
$* is no longer supported at ../bin/perload line 463.
Can't locate getopt.pl in @INC (@INC contains:
....
.) at ../bin/perload line 40.
 *** Error code 2

--- bin/perload.orig	2001-03-18 03:31:36.000000000 +0900
+++ bin/perload	2013-06-15 12:18:17.000000000 +0900
@@ -37,8 +37,8 @@ $current_package = 'main';		# Current pa
 $init_emitted = 0;				# True when dataloading stamp was emitted
 $in_function = 0;
 
-require 'getopt.pl';
-&Getopt;
+use Getopt::Std;
+getopt();
 
 while (<>) {
 	if ($. == 1 && /^(:|#).*perl/) {	# Invocation stub