Ticket #509: Install.pm.diff

File Install.pm.diff, 0.8 KB (added by gerd, 5 years ago)

patch for the file lib/Parrot/Install.pm

  • lib/Parrot/Install.pm

    old new  
    220220        else { 
    221221            next unless -e $src; 
    222222            next if $^O eq 'cygwin' and -e "$src.exe"; # stat works, copy not 
     223            if (-l $src) {  
     224                # check if the system supports symbolic linking  
     225                use Config;  
     226                if ($Config{d_symlink} && $Config{d_readlink}) {  
     227                # copy as symbolic link  
     228                    symlink(readlink($src), $dest);  
     229                    print "$dest\n";  
     230                    next;  
     231                }  
     232            }  
    223233            copy( $src, $dest ) or die "Error: couldn't copy $src to $dest: $!\n"; 
    224234            print "$dest\n"; 
    225235        }