diff options
| -rwxr-xr-x | x2p/Makefile.SH | 2 | ||||
| -rw-r--r-- | x2p/s2p.PL | 9 |
2 files changed, 10 insertions, 1 deletions
diff --git a/x2p/Makefile.SH b/x2p/Makefile.SH index a0ba96a360..25085fc883 100755 --- a/x2p/Makefile.SH +++ b/x2p/Makefile.SH @@ -129,7 +129,7 @@ a2p$(OBJ_EXT): a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h \ $(CCCMD) a2p.c clean: - rm -f a2p *$(OBJ_EXT) $(plexe) $(plc) $(plm) + rm -f a2p psed *$(OBJ_EXT) $(plexe) $(plc) $(plm) realclean: clean rm -f core $(addedbyconf) all malloc.c 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; |