On Wed, Jun 01, 2005 at 06:58:02PM -0400, Duncan Findlay wrote:
>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;
>     };

Given that I've had two bugs about building PAR in quick succession, and
that this work fine:

  $ perl -Mstrict -MFile::Path -e 'for ("/tmp/fnord") { mkpath $_, 1; rmtree 
$_, 1 }' 
  mkdir /tmp/fnord
  rmdir /tmp/fnord
  $

then I'm suspecting that the problem is with PAR.

The parenthesis should not be required, given that getcwd is imported:

  use Cwd 'getcwd';

Does PAR have an Exporer.pm with different semantics to the standard one
in the inc subdirectory?

--bod


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to