Changeset 9081 for inc

Show
Ignore:
Timestamp:
02/20/06 23:16:21 (3 years ago)
Author:
audreyt
Message:

* Uzair pointed out that build fails if the pathname to pugs

contained the ' character.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • inc/Module/Install/Pugs.pm

    r8671 r9081  
    141141    ? '../..' 
    142142    : $self->{_top}{base}; 
     143 
     144    # Escape ' and \ in $base pathname  
     145    $base =~ s{(['\\])}{\\$1}g; 
     146 
    143147    eval "use lib '$base/util'; 1" or die $@; 
    144148    eval "use PugsConfig; 1" or die $@;