Bug#550462: libautodie-perl: does not die on errors from chmod()

[Damyan Ivanov]

Package: libautodie-perl
Version: 2.06.01-2
Severity: important

Try this:

$ cat <<EOF > test.pl
#!/usr/bin/perl
use autodie qw(:all);

chmod 0755, "/non-existent/file" or warn $!;

print "I'm alive!\n";
EOF

$ perl test.pl
No such file or directory at test.pl line 4.
I'm alive

Expected result: script should die.

Thanks,
    dam

-- System Information:
Debian Release: squeeze/sid
  APT prefers unstable
  APT policy: (500, 'unstable'), (500, 'testing'), (1, 'experimental')
Architecture: i386 (i686)

Kernel: Linux 2.6.30-2-686 (SMP w/1 CPU core)
Locale: LANG=bg_BG.UTF-8, LC_CTYPE=bg_BG.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages libautodie-perl depends on:
ii  libsub-identify-perl          0.04-1     Retrieve names of code references
ii  perl                          5.10.1-5   Larry Wall's Practical Extraction 

Versions of packages libautodie-perl recommends:
ii  libipc-system-simple-perl     1.18-1     Perl module to run commands simply

libautodie-perl suggests no packages.

-- no debconf information