[Mimedefang] modern perl problems?

[David F. Skoll]

On Thu, 13 Mar 2014 16:50:22 +0100
Fredrik Pettai <pettai at nordu.net> wrote:

> main::rebuild_entity() called too early to check prototype
> at /usr/pkg/bin/mimedefang.pl line 805.

I have a patch in our git repo to fix this; just haven't done a new
MIMEDefang release yet.

diff --git a/mimedefang.pl.in b/mimedefang.pl.in
index 8702c4c..36b167c 100755
--- a/mimedefang.pl.in
+++ b/mimedefang.pl.in
@@ -764,6 +764,7 @@ sub synthesize_received_header () {
 #  Descends through input entity and rebuilds an output entity.  The
 #  various parts of the input entity may be modified (or even deleted)
 #***********************************************************************
+sub rebuild_entity ($$); # Forward declaration to avoid warning
 sub rebuild_entity ($$) {
     my($out, $in) = @_;
     my @parts = $in->parts;

Regards,

David.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 190 bytes
Desc: not available
URL: <https://lists.mimedefang.org/pipermail/mimedefang_lists.mimedefang.org/attachments/20140313/94dcfab8/attachment.sig>