Changeset 8127 for inc

Show
Ignore:
Timestamp:
12/09/05 07:09:14 (3 years ago)
Author:
pjf
Message:

Pugs doesn't yet deal nicely with absolute paths under cygwin. This
kludge allows the test suite to run by also providing win32ified paths
under cygwin.

This does not fix general cygwin pathing issues. It only helps the
test suite.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • inc/Module/Install/Pugs.pm

    r7801 r8127  
    108108    $full_blib =~ s{\\}{\\\\}g; 
    109109    $full_blib =~ s{'}{\\'}g; 
     110 
     111    # XXX - Pugs currently has issues under cygwin, and does not 
     112    # recognise cygwin absolute paths.  This kludge includes the 
     113    # win32ified path as well. 
     114 
     115    if ($Config{osname} eq q{cygwin}) { 
     116 
     117                # The world's ugliest cygwin variable gives us a hint to the 
     118                # cygwin root.  There is probably a better way to find this. 
     119                # (registry lookup?) 
     120 
     121                my $cygroot = $ENV{'!C:'}; 
     122 
     123                $cygroot =~ s{\\bin$}{}; 
     124 
     125        $full_blib .= join(q{}, q{:}, $cygroot, $full_blib) 
     126    } 
     127 
    110128    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; \@ARGV = map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/; 
    111129    $makefile =~ s!("-MExtUtils::Command::MM")!"-I../../inc" "-I../inc" "-Iinc" $1!g;