Re: [Module::Build] win32 install problem

[Randy W. S. <ml...@th...>]

Ben Lavender wrote:
> Hi all,
> 
> Module::Build won't install for me and I can't find anyone else on the
> net with my problem.
> 
> My setup is XP SP 2.
> ------perl -v:
> 
> This is perl, v5.6.1 built for MSWin32-x86-multi-thread
> (with 1 registered patch, see perl -V for more detail)
> 
> Copyright 1987-2001, Larry Wall
> 
> Binary build 635 based on sources provided by
>  ActiveState Corp. http://www.ActiveState.com
> Built 21:04:21 Feb 25 2003
> 
> -----Error (perl Build.PL works fine):
> C:\Documents and Settings\Administrator\Desktop\firebird 
> incoming\Module-Build-0
> .28.tar\Module-Build-0.28>Build
> Use of uninitialized value in pattern match (m//) at 
> c:/work/Perl/lib/File/Spec/
> Win32.pm line 72.
> Use of uninitialized value in pattern match (m//) at 
> c:/work/Perl/lib/File/Spec/
> Win32.pm line 72.
> Use of uninitialized value in pattern match (m//) at 
> c:/work/Perl/lib/File/Spec/
> Win32.pm line 140.
> mkdir blib\binhtml\bin\C:.: Invalid argument at lib/Module/Build/Base.pm 
> line 25
> 29
> 
> Any assistance would be appreciated!  Please let me know if more
> information is required.

Sorry to take so long to look at this. I haven't yet been able to 
reproduce the problem. The problem seems to be that a directory name is 
getting corrupted somewhere. Eg. In this line from above:

  mkdir blib\binhtml\bin\C:.:
    Invalid argument at lib/Module/Build/Base.pm line 25

The trailing 'C:.' does not belong there.

It'd be useful to see what values are in $path and @dirs if you are able 
to apply the following patch:

--- Base.pm.orig        2006-04-28 00:14:03.000000000 -0400
+++ Base.pm     2006-05-15 20:37:05.796875000 -0400
@@ -2519,6 +2519,9 @@
      my @dirs = File::Spec->splitdir( File::Spec->canonpath( $path ) );
      pop( @dirs ) if $dirs[-1] eq File::Spec->curdir;

+use Data::Dumper; warn Data::Dumper->Dump( [$name, $path, \@dirs],
+                                           [qw(name path dirs)] );
+
      my $fulldir = File::Spec->catfile($htmldir, @rootdirs, @dirs);
      my $outfile = File::Spec->catfile($fulldir, "${name}.html");
      my $infile  = File::Spec->abs2rel($pod);


It'd also be useful to know if this happens in a directory without 
spaces, and if it happens after upgrading File::Spec[1]

Regards,
Randy.

1. <http://search.cpan.org/dist/PathTools/>