Package: perl-modules Version: 5.8.6-1 Severity: normal Tags: patch File: /usr/share/perl/5.8.6/File/Path.pm
While installing PAR using CPAN:
./static -I"/home/duncf/.cpan/build/PAR-0.87/inc" -I"/etc/perl"
-I"/usr/local/lib/perl/5.8.6" -I"/usr/local/share/perl/5.8.6"
-I"/usr/lib/perl5" -I"/usr/share/perl5" -I"/usr/lib/perl/5.8.6"
-I"/usr/share/perl/5.8.6" -I"/usr/local/lib/site_perl"
-I"/usr/local/lib/perl/5.8.4" -I"/usr/local/share/perl/5.8.4"
-I"/home/duncf/.cpan/build/PAR-0.87" -I"." -I../myldr/.. -I../blib/lib -q -B
-O../script/parl
Found = in conditional, should be == at /usr/share/perl/5.8.6/File/Path.pm line
266.
Bareword "getcwd" not allowed while "strict subs" in use at
/usr/share/perl/5.8.6/File/Path.pm line 266.
Compilation failed in require at /usr/share/perl/5.8.6/File/Temp.pm line 130.
BEGIN failed--compilation aborted at /usr/share/perl/5.8.6/File/Temp.pm line
130.
Compilation failed in require at /usr/share/perl5/Archive/Zip.pm line 26.
BEGIN failed--compilation aborted at /usr/share/perl5/Archive/Zip.pm line 26.
Compilation failed in require at -e line 389.
BEGIN failed--compilation aborted at -e line 835.
The fix is fairly simple:
--- /usr/share/perl/5.8.6/File/Path.pm~ 2005-05-21 05:24:24.000000000 -0700
+++ /usr/share/perl/5.8.6/File/Path.pm 2005-06-01 15:41:00.964638704 -0700
@@ -263,7 +263,7 @@
return;
}
- my $oldpwd = getcwd or do {
+ my $oldpwd = getcwd() or do {
carp "Can't fetch initial working directory";
return;
};
Thanks,
Duncan
-- System Information:
Debian Release: 3.1
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'testing'), (1, 'experimental')
Architecture: i386 (i686)
Shell: /bin/sh linked to /bin/bash
Kernel: Linux 2.6.8-2-686
Locale: LANG=en_US, LC_CTYPE=en_US (charmap=ISO-8859-1)
Versions of packages perl-modules depends on:
ii perl 5.8.6-1 Larry Wall's Practical Extraction
-- no debconf information
--
Duncan Findlay
signature.asc
Description: Digital signature
