Bug#800913: nama: ChainSetup fails rendering all sound operations useless

[Sam Hartman]

Package: nama
Version: 1.078-2
Severity: grave
Justification: renders package unusable

Whenever anything tries to generate chains, which happens so you can play or record any sound, I get:
error caught while generating setup: Undefined subroutine called at /usr/share/p
erl5/Audio/Nama/ChainSetup.pm line 533.

That would be:
	open my $fh, ">", Audio::Nama::setup_file();

So, the problem is not Audio::Nama::setup_file.  First, note that it is an anonymous sub not found in the error; we'd be told if Audio::Nama::setup_file was missing.
Also, I evaled that iand it returns the expected value.
I also decomposed line 533, stored Audio::Nama::setup_file in a temporary and that worked fine and the error is on the open not setting the temporary.

What seems to be happening here is that open is breaking somehow.
I ran under the perl debugger and waited until we got to line 533.

Then I ran
OPEN BAR, ">/tmp/bar"

and got the same undefined subroutine error.
So, something somewher is messing up open/file io in general.
I did some grepping and couldn't find it.
My Perl is too old to know how you can do magic this black.

--Sam





-- System Information:
Debian Release: jessie/sid
  APT prefers stable-updates
  APT policy: (500, 'stable-updates'), (500, 'stable'), (250, 'testing'), (200, 'unstable')
Architecture: amd64 (x86_64)

Kernel: Linux 3.16.0-4-amd64 (SMP w/4 CPU cores)
Locale: LANG=en_US.utf8, LC_CTYPE=en_US.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages nama depends on:
ii  ecasound                   2.9.1-4
ii  libanyevent-perl           7.070-3
ii  libdata-section-perl       0.200006-1
ii  libevent-perl              1.23-1+b1
ii  libfile-copy-link-perl     0.140-1
ii  libfile-find-rule-perl     0.33-1
ii  libfile-homedir-perl       1.00-1
ii  libfile-slurp-perl         9999.19-4
ii  libgraph-perl              1:0.96-1.1
ii  libmodern-perl-perl        1.20140107-1
ii  libparse-recdescent-perl   1.967009+dfsg-1
ii  libterm-readline-gnu-perl  1.24-2+b1
ii  libtext-format-perl        0.59-1
ii  libyaml-tiny-perl          1.64-1
ii  perl                       5.20.2-3+deb8u1
ii  procps                     2:3.3.9-8

nama recommends no packages.

Versions of packages nama suggests:
ii  libaudio-ecasound-perl  1.01-3+b1
ii  perl-tk                 1:804.032-3+b3

-- no debconf information