[nama] 01/06: Add patch to work around Perl crash.

[gregor herrmann]

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.reczey at 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.reczey at 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