Your message dated Sat, 09 Dec 2017 10:46:36 +0000
with message-id <1512816396.1994.30.ca...@adam-barratt.org.uk>
and subject line Closing bugs for updates included in stretch point release
has caused the Debian Bug report #882493,
regarding stretch-pu: package liblog-log4perl-perl/1.48-1+deb9u1
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact ow...@bugs.debian.org
immediately.)
--
882493: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=882493
Debian Bug Tracking System
Contact ow...@bugs.debian.org with problems
--- Begin Message ---
Package: release.debian.org
Severity: normal
Tags: stretch
User: release.debian....@packages.debian.org
Usertags: pu
Hi SRM,
The Debian Perl Group was asked, if #855894 could be fixed as well for
stretch, since when "syswrite" and "utf8" are used together with Perl
5.24 warnings are issued. The proposed debdiff is attached.
Thanks for considering, let me know if it looks okay for you to
include this in the upcoming point release for stretch.
Regards,
Salvatore
diff -Nru liblog-log4perl-perl-1.48/debian/changelog
liblog-log4perl-perl-1.48/debian/changelog
--- liblog-log4perl-perl-1.48/debian/changelog 2016-12-27 01:20:02.000000000
+0100
+++ liblog-log4perl-perl-1.48/debian/changelog 2017-11-23 14:36:00.000000000
+0100
@@ -1,3 +1,11 @@
+liblog-log4perl-perl (1.48-1+deb9u1) stretch; urgency=medium
+
+ * Team upload.
+ * Workaround for Perl 5.24 no longer allowing syswrite and utf8 together
+ (Closes: #855894)
+
+ -- Salvatore Bonaccorso <car...@debian.org> Thu, 23 Nov 2017 14:36:00 +0100
+
liblog-log4perl-perl (1.48-1) unstable; urgency=medium
* Team upload.
diff -Nru
liblog-log4perl-perl-1.48/debian/patches/0005-Workaround-for-perl-5.24-no-longer-allowing-syswrite.patch
liblog-log4perl-perl-1.48/debian/patches/0005-Workaround-for-perl-5.24-no-longer-allowing-syswrite.patch
---
liblog-log4perl-perl-1.48/debian/patches/0005-Workaround-for-perl-5.24-no-longer-allowing-syswrite.patch
1970-01-01 01:00:00.000000000 +0100
+++
liblog-log4perl-perl-1.48/debian/patches/0005-Workaround-for-perl-5.24-no-longer-allowing-syswrite.patch
2017-11-23 14:36:00.000000000 +0100
@@ -0,0 +1,99 @@
+From: mschilli <git...@perlmeister.com>
+Date: Sun, 19 Feb 2017 13:22:59 -0800
+Subject: Workaround for perl-5.24 no longer allowing syswrite+utf8 (see
+ https://github.com/mschilli/log4perl/issues/78)
+Origin:
https://github.com/mschilli/log4perl/commit/e8d8f6600312670a156399e220998dbd0832915f
+Bug: https://github.com/mschilli/log4perl/issues/78
+Bug-Debian: https://bugs.debian.org/855894
+
+---
+ lib/Log/Log4perl/Appender/File.pm | 39 ++++++++++++++++++++++++++++++++++-----
+ 1 file changed, 34 insertions(+), 5 deletions(-)
+
+diff --git a/lib/Log/Log4perl/Appender/File.pm
b/lib/Log/Log4perl/Appender/File.pm
+index 8b9dfd8..abdce69 100755
+--- a/lib/Log/Log4perl/Appender/File.pm
++++ b/lib/Log/Log4perl/Appender/File.pm
+@@ -11,6 +11,7 @@ use Fcntl;
+ use File::Path;
+ use File::Spec::Functions qw(splitpath);
+ use constant _INTERNAL_DEBUG => 0;
++use constant SYSWRITE_UTF8_OK => ( $] < 5.024 );
+
+ ##################################################
+ sub new {
+@@ -26,7 +27,7 @@ sub new {
+ syswrite => 0,
+ mode => "append",
+ binmode => undef,
+- utf8 => undef,
++ utf8 => 0,
+ recreate => 0,
+ recreate_check_interval => 30,
+ recreate_check_signal => undef,
+@@ -62,12 +63,30 @@ sub new {
+ close FILE;
+ }
+
++ $self->{syswrite_encoder} = $self->syswrite_encoder();
++
+ # This will die() if it fails
+ $self->file_open() unless $self->{create_at_logtime};
+
+ return $self;
+ }
+
++##################################################
++sub syswrite_encoder {
++##################################################
++ my($self) = @_;
++
++ if(!SYSWRITE_UTF8_OK and $self->{syswrite} and $self->{utf8}) {
++ if( eval { require Encode } ) {
++ return sub { Encode::encode_utf8($_[0]) };
++ } else {
++ die "syswrite and utf8 requires Encode.pm";
++ }
++ }
++
++ return undef;
++}
++
+ ##################################################
+ sub filename {
+ ##################################################
+@@ -163,8 +182,11 @@ sub file_open {
+ binmode $self->{fh}, $self->{binmode};
+ }
+
+- if (defined $self->{utf8}) {
+- binmode $self->{fh}, ":utf8";
++ if ($self->{utf8}) {
++ # older perls can handle syswrite+utf8 just fine
++ if(SYSWRITE_UTF8_OK or !$self->{syswrite}) {
++ binmode $self->{fh}, ":utf8";
++ }
+ }
+
+ if(defined $self->{header_text}) {
+@@ -269,8 +291,15 @@ sub log {
+ my $fh = $self->{fh};
+
+ if($self->{syswrite}) {
+- defined (syswrite $fh, $params{message}) or
+- die "Cannot syswrite to '$self->{filename}': $!";
++ my $rc =
++ syswrite( $fh,
++ $self->{ syswrite_encoder } ?
++ $self->{ syswrite_encoder }->($params{message}) :
++ $params{message} );
++
++ if(!$rc) {
++ die "Cannot syswrite to '$self->{filename}': $!";
++ }
+ } else {
+ print $fh $params{message} or
+ die "Cannot write to '$self->{filename}': $!";
+--
+2.15.0
+
diff -Nru liblog-log4perl-perl-1.48/debian/patches/series
liblog-log4perl-perl-1.48/debian/patches/series
--- liblog-log4perl-perl-1.48/debian/patches/series 2016-12-27
01:20:02.000000000 +0100
+++ liblog-log4perl-perl-1.48/debian/patches/series 2017-11-23
14:36:00.000000000 +0100
@@ -3,3 +3,4 @@
0002-topic-debian-Fix-Wrong-path-for-interpreter.patch
0003-More-spelling-fixes-in-the-POD.patch
0004-topic-man-fix-spelling-errors-in-man-pages.patch
+0005-Workaround-for-perl-5.24-no-longer-allowing-syswrite.patch
--- End Message ---
--- Begin Message ---
Version: 9.3
Hi,
Each of the updates referenced in these bugs was included in this
morning's stretch point release. Thanks!
Regards,
Adam
--- End Message ---
