svn commit: r502317 - in head/mail/sieve-connect: . files

[Baptiste Daroussin]

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) {