Package: sieve-connect
Version: 0.88-1
Severity: normal
--- Please enter the report below this line. ---
When started, sieve-connect spews warning:
$ sieve-connect
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/bin/sieve-connect line 926.
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/bin/sieve-connect line 1509.
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?\n?/ at /usr/bin/sieve-connect line 1525.
Connection to <localhost:sieve(4190)> failed.
Fix attached.
--- System information. ---
Architecture:
Kernel: Linux 4.13.11mq+
Debian Release: buster/sid
900 testing-debug debug.mirrors.debian.org
900 testing ftp.pl.debian.org
800 stretch-backports ftp.pl.debian.org
750 stable security.debian.org
750 stable ftp.pl.debian.org
750 proposed-updates ftp.pl.debian.org
700 unstable ftp.pl.debian.org
600 experimental ftp.pl.debian.org
500 unstable-debug debug.mirrors.debian.org
500 stable-debug debug.mirrors.debian.org
500 stable repository.spotify.com
500 stable dl.google.com
1 experimental-debug debug.mirrors.debian.org
--- Package information. ---
Depends (Version) | Installed
=======================================-+-============
perl:any |
libauthen-sasl-perl (>= 2.11-1) | 2.1600-1
libio-socket-inet6-perl | 2.72-2
libnet-dns-perl | 1.10-2
libio-socket-ssl-perl | 2.052-1
libmime-base64-perl |
libterm-readkey-perl | 2.37-1+b2
Recommends (Version) | Installed
========================================-+-===========
libterm-readline-gnu-perl | 1.35-1+b2
Package's Suggests field is empty.
--- sieve-connect.orig 2016-08-30 12:13:26.000000000 +0200
+++ sieve-connect 2017-11-27 21:37:19.548717710 +0100
@@ -923,11 +923,11 @@
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");
}
- ($challenge = $_) =~ s/^{\d+\+?}\r?\n?//;
+ ($challenge = $_) =~ s/^\{\d+\+?\}\r?\n?//;
}
$challenge = decode_base64($challenge);
@@ -1506,7 +1506,7 @@
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 = $_;
@@ -1522,7 +1522,7 @@
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) {
@@ -1909,7 +1909,7 @@
$LOST_CONNECTION = 1;
die "Connection dropped unexpectedly when trying to read.\n";
}
- if ($l =~ /{(\d+)\+?}\s*\n?\z/) {
+ if ($l =~ /\{(\d+)\+?\}\s*\n?\z/) {
debug "... literal string response, length $1";
my $len = $1;
if ($len == 0) {
