Date: Tue, 10 May 2011 17:33:23 +0900 (JST) From: Yoshiaki Kasahara <kasahara@nc.kyushu-u.ac.jp> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/156922: update mail/mailagent to 3.1.68 / reduce warnings on perl 5.12 Message-ID: <201105100833.p4A8XNGe001293@elvenbow.cc.kyushu-u.ac.jp> Resent-Message-ID: <201105100840.p4A8e52r080710@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>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@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:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201105100833.p4A8XNGe001293>