ports/156922: update mail/mailagent to 3.1.68 / reduce warnings on perl 5.12
Yoshiaki Kasahara
kasahara at nc.kyushu-u.ac.jp
Tue May 10 08:40:06 UTC 2011
>Number: 156922
>Category: ports
>Synopsis: update mail/mailagent to 3.1.68 / reduce warnings on perl 5.12
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-ports-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: update
>Submitter-Id: current-users
>Arrival-Date: Tue May 10 08:40:05 UTC 2011
>Closed-Date:
>Last-Modified:
>Originator: Yoshiaki Kasahara
>Release: FreeBSD 8.2-STABLE amd64
>Organization:
Kyushu University
>Environment:
System: FreeBSD elvenbow.cc.kyushu-u.ac.jp 8.2-STABLE FreeBSD 8.2-STABLE #0 r221111: Wed Apr 27 13:16:25 JST 2011 root at elvenbow.cc.kyushu-u.ac.jp:/usr/obj/usr/src/sys/ELVENBOW amd64
>Description:
I'm providing the distfile for mail/mailagent at http://eron.info/.
I noticed that the revision of upstream became 68, so I updated my
tarball accordingly.
Also mailagent uses some deprecated expressions on Perl 5.12 such
as 'defined(%hash)' and generates a lot of warnings.
So, I'd like to add a patch to fix them.
>How-To-Repeat:
>Fix:
Here is the patch to update the port:
diff -Nur mailagent/Makefile /usr/local/src/ports/mailagent/Makefile
--- mailagent/Makefile 2010-04-02 18:21:32.000000000 +0900
+++ /usr/local/src/ports/mailagent/Makefile 2011-05-10 16:37:05.000000000 +0900
@@ -6,7 +6,7 @@
#
PORTNAME= mailagent
-PORTVERSION= 3.1.65
+PORTVERSION= 3.1.68
CATEGORIES= mail
MASTER_SITES= http://eron.info/
diff -Nur mailagent/distinfo /usr/local/src/ports/mailagent/distinfo
--- mailagent/distinfo 2010-04-02 18:21:33.000000000 +0900
+++ /usr/local/src/ports/mailagent/distinfo 2011-05-10 16:37:09.000000000 +0900
@@ -1,3 +1,2 @@
-MD5 (mailagent-3.1.65.tar.bz2) = 8ba6f9f5bdf850b19d6f38e7d02a3322
-SHA256 (mailagent-3.1.65.tar.bz2) = 3212c1e0118ccdae5209950377debe70ec3fa15dbe2b1dc422568f3e5dcd8ba1
-SIZE (mailagent-3.1.65.tar.bz2) = 454295
+SHA256 (mailagent-3.1.68.tar.bz2) = 7446c634b9769878a21d84b2697a8d8c41a785373a46d520924081dba1b894c4
+SIZE (mailagent-3.1.68.tar.bz2) = 451481
diff -Nur mailagent/files/patch-aa /usr/local/src/ports/mailagent/files/patch-aa
--- mailagent/files/patch-aa 1970-01-01 09:00:00.000000000 +0900
+++ /usr/local/src/ports/mailagent/files/patch-aa 2011-05-10 17:14:02.734155430 +0900
@@ -0,0 +1,111 @@
+Index: revision.h
+===================================================================
+--- revision.h (revision 68)
++++ revision.h (working copy)
+@@ -4,4 +4,4 @@
+ * Generated by ./bin/svn-revision.
+ */
+
+-#define REVISION 64
++#define REVISION 68
+Index: agent/pl/listqueue.pl
+===================================================================
+--- agent/pl/listqueue.pl (revision 68)
++++ agent/pl/listqueue.pl (working copy)
+@@ -79,7 +79,7 @@
+ $: = " ,"; # Break recipients on white space or colon
+ format STDOUT =
+ @<<<<<<<<<@>>>>>>>@@<<<<<<<<<< @<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+-$file $size $star $queued $status $sender
++$file, $size,$star,$queued, $status, $sender
+ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+ $recipient
+ ~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+Index: agent/pl/callout.pl
+===================================================================
+--- agent/pl/callout.pl (revision 68)
++++ agent/pl/callout.pl (working copy)
+@@ -90,7 +90,7 @@
+ last;
+ }
+ close CALLOUT;
+- return unless defined %Callout; # Nothing loaded, empty file...
++ return unless %Callout; # Nothing loaded, empty file...
+
+ local($next_callout) = (sort keys %Callout)[0];
+ if ($next_callout != $first_callout) {
+@@ -111,7 +111,7 @@
+ local($time, $action, $type, $no_input) = @_;
+ &'add_log("queueing callout on $time ($action)") if $'loglvl > 15;
+ $callout_changed++;
+- &load unless defined %Callout;
++ &load unless %Callout;
+ local($qname) = '-'; # File not queued by default
+ if ($type ne $SHELL && !$no_input) {
+ # 'agent' or 'cmd' callouts have input by default, unless $no_input
+@@ -140,7 +140,7 @@
+ local($file) = @_;
+ local($directory, $base) = $file =~ m|(.*)/(.*)|;
+ $file = $directory eq $cf'queue ? $base : $file;
+- &load unless defined %Callout;
++ &load unless %Callout;
+ local($time, $files);
+ foreach $time (keys %Callfile) {
+ $files = $Callfile{$time};
+@@ -155,7 +155,7 @@
+ sub run {
+ &'add_log("running callout queue") if $'loglvl > 15;
+ $callout_changed++;
+- &load unless defined %Callout;
++ &load unless %Callout;
+ local(@type, @action, @file);
+ local($type, $action, $file);
+ do {
+Index: agent/pl/mh.pl
+===================================================================
+--- agent/pl/mh.pl (revision 68)
++++ agent/pl/mh.pl (working copy)
+@@ -123,7 +123,7 @@
+
+ # Read MH profile, fill in %Profile entries.
+ sub profile {
+- return if defined %Profile;
++ return if %Profile;
+ # Make sure there is at least a valid Path entry, in case they made a
+ # mistake and asked for MH folder saving without a valid .mh_profile...
+ local($dflt) = defined($'XENV{'maildir'}) ? $'XENV{'maildir'} : 'Mail';
+Index: agent/pl/rulenv.pl
+===================================================================
+--- agent/pl/rulenv.pl (revision 68)
++++ agent/pl/rulenv.pl (working copy)
+@@ -61,7 +61,7 @@
+ # Set-up initial environment for rules.
+ # This routine is called once for every mail parsed.
+ sub setup {
+- &init unless defined %Spec;
++ &init unless %Spec;
+ eval $SETUP if $SETUP ne '';
+ &'add_log("ERROR env'setup: $@") if $@;
+ undef %Var;
+@@ -106,7 +106,7 @@
+ # If an action is required by the resetting of a variable, it is performed
+ # following the directive from the %Spec table.
+ sub restore {
+- return unless defined %Var;
++ return unless %Var;
+ local($code) = ''; # Code built to restore original variable values
+ foreach $var (keys %Var) {
+ $code .= "\$$var = \$Var{'$var'};\n";
+Index: agent/pl/cmdserv.pl
+===================================================================
+--- agent/pl/cmdserv.pl (revision 68)
++++ agent/pl/cmdserv.pl (working copy)
+@@ -890,7 +890,7 @@
+ &cmdenv'set_cmd(join(' ', @command)); # Set command environment
+ local($failed) = &dispatch; # Execute command
+
+- if (defined %powers) {
++ if (%powers) {
+ $cmdenv'powers = $powers;
+ %cmdenv'powers = %powers;
+ print MAILER "Restored powers ($powers).\n";
>Release-Note:
>Audit-Trail:
>Unformatted:
More information about the freebsd-ports-bugs
mailing list