summaryrefslogtreecommitdiff
path: root/x2p/s2p.PL
diff options
context:
space:
mode:
authorAndreas König <a.koenig@mind.de>2001-05-05 20:23:28 +0200
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-05 18:32:15 +0000
commitd38b618adccc72975870768057165000623f0d37 (patch)
tree078a8d5ca31b1825159d2131bbad46d2a4da57f1 /x2p/s2p.PL
parent96e821d57e0ce06bdcf42060deb9cea0b0589546 (diff)
downloadperl-d38b618adccc72975870768057165000623f0d37.tar.gz
Re: bleadperl make install fails due to "psed"
Message-ID: <m3u22zg3y7.fsf@ak-71.mind.de> p4raw-id: //depot/perl@10000
Diffstat (limited to 'x2p/s2p.PL')
-rw-r--r--x2p/s2p.PL9
1 files changed, 9 insertions, 0 deletions
diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index d215781dae..a24a2e2fe8 100644
--- a/x2p/s2p.PL
+++ b/x2p/s2p.PL
@@ -1960,5 +1960,14 @@ way you wish, provided you do not restrict others from doing the same.
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
+unlink 'psed';
+print "Linking s2p to psed.\n";
+if (defined $Config{d_link}) {
+ link 's2p', 'psed';
+} else {
+ unshift @INC, '../lib';
+ require File::Copy;
+ File::Copy::syscopy('s2p', 'psed');
+}
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;