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 -- To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org