Bug#618524: perl: abs_path is broken

[Krasu]

Package: perl
Version: 5.10.1-17
Severity: normal

Sample code:

#!/usr/bin/perl

use strict;
use warnings;
use Cwd;
use Cwd 'abs_path';

my $path = $ARGV[0];
my $r = abs_path($path);
print "$r\n";

Test:

# ./test.pl /usr/lib/ololo
/usr/lib/ololo

# ./test.pl /usr/lib/ololo/
Use of uninitialized value $r in concatenation (.) or string at ./1.pl line 10.

# ./test.pl /usr/lib/ololo/1
Use of uninitialized value $r in concatenation (.) or string at ./1.pl line 10.



-- System Information:
Debian Release: 6.0
  APT prefers stable
  APT policy: (500, 'stable'), (20, 'unstable'), (10, 'experimental')
Architecture: i386 (i686)

Kernel: Linux 2.6.32-5-686-bigmem (SMP w/2 CPU cores)
Locale: LANG=ru_RU.UTF-8, LC_CTYPE=ru_RU.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages perl depends on:
ii  libbz2-1.0              1.0.5-6          high-quality block-sorting file co
ii  libc6                   2.11.2-10        Embedded GNU C Library: Shared lib
ii  libdb4.7                4.7.25-9         Berkeley v4.7 Database Libraries [
ii  libgdbm3                1.8.3-9          GNU dbm database routines (runtime
ii  perl-base               5.10.1-17        minimal Perl system
ii  perl-modules            5.10.1-17        Core Perl modules
ii  zlib1g                  1:1.2.3.4.dfsg-3 compression library - runtime

Versions of packages perl recommends:
ii  netbase                       4.45       Basic TCP/IP networking system

Versions of packages perl suggests:
pn  libterm-readline-gnu-perl | l <none>     (no description available)
ii  make                          3.81-8     An utility for Directing compilati
pn  perl-doc                      <none>     (no description available)

-- no debconf information