Date: Thu, 23 May 2019 07:35:12 +0000 (UTC) From: Baptiste Daroussin <bapt@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r502317 - in head/mail/sieve-connect: . files Message-ID: <201905230735.x4N7ZCaP020976@repo.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: bapt Date: Thu May 23 07:35:12 2019 New Revision: 502317 URL: https://svnweb.freebsd.org/changeset/ports/502317 Log: Fix a warning in perl 5.28 which would become fatal in 5.30: Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.30), passed through in regex; marked by <-- HERE in m/^{ <-- HERE (\d+)\+?}\r?$/ at /usr/local/bin/sieve-connect line 930. Added: head/mail/sieve-connect/files/ head/mail/sieve-connect/files/patch-sieve-connect.pl (contents, props changed) Modified: head/mail/sieve-connect/Makefile Modified: head/mail/sieve-connect/Makefile ============================================================================== --- head/mail/sieve-connect/Makefile Thu May 23 07:20:43 2019 (r502316) +++ head/mail/sieve-connect/Makefile Thu May 23 07:35:12 2019 (r502317) @@ -3,6 +3,7 @@ PORTNAME= sieve-connect DISTVERSION= 0.89 +PORTREVISION= 1 CATEGORIES= mail MASTER_SITES= http://people.spodhuis.org/phil.pennock/software/ Added: head/mail/sieve-connect/files/patch-sieve-connect.pl ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/mail/sieve-connect/files/patch-sieve-connect.pl Thu May 23 07:35:12 2019 (r502317) @@ -0,0 +1,29 @@ +--- sieve-connect.pl.orig 2019-05-23 07:31:11 UTC ++++ sieve-connect.pl +@@ -927,7 +927,7 @@ if (defined $realm) { + if (/^"(.*)"\r?\n?$/) { + $challenge = $1; + } else { +- unless (/^{(\d+)\+?}\r?$/m) { ++ unless (/^\{(\d+)\+?}\r?$/m) { + sfinish $sock, "*"; + closedie($sock, "Failure to parse server SASL response.\n"); + } +@@ -1510,7 +1510,7 @@ sub sieve_download + warn qq{Empty script "$remotefn"? Not saved.\n}; + return; + } +- unless (/^{(\d+)\+?}\r?$/m) { ++ unless (/^\{(\d+)\+?}\r?$/m) { + die "QUIT:Failed to parse server response to GETSCRIPT"; + } + my $contentdata = $_; +@@ -1526,7 +1526,7 @@ sub sieve_download + or die "write-open($localfn) failed: $!\n"; + $oldouthandle = select $fh; + } +- $contentdata =~ s/^{\d+\+?}\r?\n?//m; ++ $contentdata =~ s/^\{\d+\+?}\r?\n?//m; + print $contentdata; + select $oldouthandle if defined $oldouthandle; + if (defined $fh) {
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201905230735.x4N7ZCaP020976>