This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository nama.

commit a1c92168c0b43ba0aae6a792ade51a647b18eb4c
Author: Balint Reczey <balint.rec...@canonical.com>
Date:   Mon Mar 27 17:43:05 2017 +0200

    Add patch to work around Perl crash.
    
    The construct used in nama triggers a segfault in Perl which surfaced
    recently in 5.23.3.
    
    Closes: #839218
---
 debian/patches/series                              |  1 +
 ...orkaround-perl-stack-not-refcounted-crash.patch | 25 ++++++++++++++++++++++
 2 files changed, 26 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
index c9352c4..732f43b 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 pod.patch
+workaround-perl-stack-not-refcounted-crash.patch
diff --git a/debian/patches/workaround-perl-stack-not-refcounted-crash.patch 
b/debian/patches/workaround-perl-stack-not-refcounted-crash.patch
new file mode 100644
index 0000000..80b9e4b
--- /dev/null
+++ b/debian/patches/workaround-perl-stack-not-refcounted-crash.patch
@@ -0,0 +1,25 @@
+Description: Work around Perl crash
+ The construct used in nama triggers a segfault in Perl
+ which surfaced recently in 5.23.3.
+ Tracked in nama:
+ https://rt.cpan.org/Public/Bug/Display.html?id=109852
+ and in Perl:
+ https://rt.perl.org/Public/Bug/Display.html?id=77706
+ 
+Author: Balint Reczey <balint.rec...@canonical.com>
+Bug: https://rt.perl.org/Public/Bug/Display.html?id=77706
+Bug-Debian: https://bugs.debian.org/839218
+Forwarded: no
+
+--- a/lib/Audio/Nama/Effect.pm
++++ b/lib/Audio/Nama/Effect.pm
+@@ -365,7 +365,8 @@
+               my ($minor_version) = $perl_version =~ /^v5\.(\d+)/;
+               my @new_list = grep  { $_ ne $id  } @ops_list;
+               #say "new_list: @new_list";
+-              if ($minor_version <= 14) 
++              if ($minor_version <= 14 or $minor_version >= 24)
++                     # work around Perl bug #77706
+                    {    $track->{ops}   = [ @new_list  ] }
+               else { @{ $track->{ops} } =   @new_list    }
+       }

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/nama.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to