Changeset 7937 for inc

Timestamp:

11/12/05 23:35:55 (3 years ago)

Author:

autrijus

Message:

* simonf on perlmonks (and iirc, lwall also) reported that

on FC4, somehow the Cwd/RealBin test fails in Module::Install
code. Try to fix this be appealing to Cwd::abs_path and
add some better diagnostics.

Files:

• inc/Module/Install.pm (modified) (3 diffs)

inc/Module/Install.pm

@@ -27 +27 @@
 
     if (not -f $self->{file}) {
-        die "Pugs build should not get here";
+        require Cwd;
+        die << ".";
+*** Error: $self->{file} does not exist!
+    Current directory is @{[Cwd::abs_path(Cwd::cwd())]}
+    Program path is @{[Cwd::abs_path($FindBin::Bin)]}
+*** Please report this issue to <perl6-compiler\@perl.org>.
+.
         require "$self->{path}/$self->{dispatch}.pm";
         File::Path::mkpath("$self->{prefix}/$self->{author}");
@@ -68 +74 @@
     # ignore the prefix on extension modules built from top level.
     delete $args{prefix}
-      unless Cwd::cwd() eq $FindBin::Bin;
+      unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($FindBin::Bin);
 
     return $args{_self} if $args{_self};
@@ -76 +82 @@
     $args{author}   ||= '.author';
     $args{bundle}   ||= 'inc/BUNDLES';
-    $args{base}     ||= $FindBin::Bin;
+    $args{base}     ||= Cwd::abs_path($FindBin::Bin);
 
     $class =~ s/^inc:://;