Re: (mail/mailagent 3.0.73) Re: broken packages for 2013q2

[Makoto Fujiwara <makoto%ki.nu@localhost>]

Thanks dholland@ and obache@. I've contacted the author of mailagent,
and he mentionend svn repositoy:
  svn://svn.code.sf.net/p/mailagent/code
  (Next version seems to be 3.1.)
I'm trying to setup wip/mailagent-svn with this to see what is going on,
but I did not get packaging on this side yet.

For the pkgsrc proper, I have simpler patches and I will commit
this interim fix if no more discussion here, Thanks.

(although, I'm getting following build log and may not be 
100% happy/confident for these ;-)
--------------
Making all in agent/test...
The following may take a while...
Don't panic if any of these tests fails and do not stop make.
basic/config.....ok
basic/filter.....ok
basic/mailagent..FAILED (10 tests: 6,7,8,9,13,14,15,16,17,25)
Failed a basic test, cannot continue.
Failure detected, retrying one more time, just in case...
Successful tests will not be rerun but flagged as 'done'.
basic/config.....done
basic/filter.....done
basic/mailagent..FAILED (10 tests: 6,7,8,9,13,14,15,16,17,25)
Failed a basic test, cannot continue.
Hmm... Still failed... There might be a real problem.
I shall be using the plain (non dataloaded) version.
basic/config.....done
basic/filter.....done
basic/mailagent..FAILED (10 tests: 6,7,8,9,13,14,15,16,17,25)
Failed a basic test, cannot continue.
Making all in agent/examples...
=> Unwrapping files-to-be-installed.
--------------

Index: mail/mailagent/distinfo
===================================================================
RCS file: /cvsroot/pkgsrc/mail/mailagent/distinfo,v
retrieving revision 1.5
diff -u -r1.5 distinfo
--- mail/mailagent/distinfo     14 Dec 2011 03:03:47 -0000      1.5
+++ mail/mailagent/distinfo     15 Jun 2013 03:26:57 -0000
@@ -15,3 +15,5 @@
 SHA1 (patch-agent_maillist.SH) = 811a179309462561202761e01eec56d3251417c2
 SHA1 (patch-agent_mailpatch.SH) = f25433d766c4acc8d7ffd41697cd217b82bb3cba
 SHA1 (patch-agent_package.SH) = 166319557ec0d6de3667e58010d10800e96da9dd
+SHA1 (patch-agent_test_TEST) = e9e16b500920dc2508c9b5874b1775f4efacfe41
+SHA1 (patch-bin_perload) = dfbd8e8e20c6f0ce91df0d1ee091ce0ff52b7219
Index: mail/mailagent/patches/patch-agent_test_TEST
===================================================================
RCS file: mail/mailagent/patches/patch-agent_test_TEST
diff -N mail/mailagent/patches/patch-agent_test_TEST
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ mail/mailagent/patches/patch-agent_test_TEST        15 Jun 2013 03:26:57 
-0000
@@ -0,0 +1,20 @@
+$NetBSD$
+
+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
Index: mail/mailagent/patches/patch-bin_perload
===================================================================
RCS file: mail/mailagent/patches/patch-bin_perload
diff -N mail/mailagent/patches/patch-bin_perload
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ mail/mailagent/patches/patch-bin_perload    15 Jun 2013 03:26:57 -0000
@@ -0,0 +1,23 @@
+$NetBSD$
+
+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

---
Makoto Fujiwara, 
Chiba, Japan, Narita Airport and Disneyland prefecture.