diff options
| author | tron <tron> | 2000-01-18 22:31:46 +0000 |
|---|---|---|
| committer | tron <tron> | 2000-01-18 22:31:46 +0000 |
| commit | dc0cffe57185b652a978b440fdc2ae1eadfdbe62 (patch) | |
| tree | acddbb510eb791ad8e82545a7d8a7a42da9d2ce3 /lang/perl5/patches/patch-ab | |
| parent | ab035903ecb9aa5718864c54c7f3b7b5b0c025d6 (diff) | |
| download | pkgsrc-dc0cffe57185b652a978b440fdc2ae1eadfdbe62.tar.gz | |
Downgrade "perl" package to working version 5.00404.
Diffstat (limited to 'lang/perl5/patches/patch-ab')
| -rw-r--r-- | lang/perl5/patches/patch-ab | 36 |
1 files changed, 16 insertions, 20 deletions
diff --git a/lang/perl5/patches/patch-ab b/lang/perl5/patches/patch-ab index 36b4b5f72f1..61350907e28 100644 --- a/lang/perl5/patches/patch-ab +++ b/lang/perl5/patches/patch-ab @@ -1,17 +1,17 @@ -$NetBSD: patch-ab,v 1.4 2000/01/17 03:07:11 christos Exp $ +$NetBSD: patch-ab,v 1.5 2000/01/18 22:31:47 tron Exp $ ---- installperl.orig Sat Jan 16 11:31:26 1999 -+++ installperl Sun Jan 16 21:26:37 2000 -@@ -182,7 +182,7 @@ - safe_unlink("$installbin/s$perl$ver$exe_ext"); +--- installperl.BAK Wed Nov 19 23:02:26 1997 ++++ installperl Wed Nov 19 23:04:08 1997 +@@ -93,7 +93,7 @@ + safe_unlink("$installbin/sperl$ver$exe_ext"); if ($d_dosuid) { - copy("suidperl$exe_ext", "$installbin/s$perl$ver$exe_ext"); -- chmod(04711, "$installbin/s$perl$ver$exe_ext"); + copy("suidperl$exe_ext", "$installbin/sperl$ver$exe_ext"); +- chmod(04711, "$installbin/sperl$ver$exe_ext"); + chmod(04111, "$installbin/sperl$ver$exe_ext"); } # Install library files. -@@ -275,19 +275,19 @@ +@@ -156,17 +156,17 @@ (-l $usrbinperl) && ((readlink $usrbinperl) eq $expinstperl)); } @@ -19,26 +19,22 @@ $NetBSD: patch-ab,v 1.4 2000/01/17 03:07:11 christos Exp $ - (yn("Many scripts expect perl to be installed as $usrbinperl.\n" . - "Do you wish to have $usrbinperl be the same as\n" . - "$expinstperl? [y] "))) -- { +- { - unlink($usrbinperl); -- ( $Config{'d_link'} eq 'define' && -- eval { CORE::link $instperl, $usrbinperl } ) || -- eval { symlink $expinstperl, $usrbinperl } || -- copy($instperl, $usrbinperl); -- +- eval { CORE::link $instperl, $usrbinperl } || +- eval { symlink $expinstperl, $usrbinperl } || +- copy($instperl, $usrbinperl); - $mainperl_is_instperl = 1; - } +# if ((! $mainperl_is_instperl) && +# (yn("Many scripts expect perl to be installed as $usrbinperl.\n" . +# "Do you wish to have $usrbinperl be the same as\n" . +# "$expinstperl? [y] "))) -+# { ++# { +# unlink($usrbinperl); -+# ( $Config{'d_link'} eq 'define' && -+# eval { CORE::link $instperl, $usrbinperl } ) || -+# eval { symlink $expinstperl, $usrbinperl } || -+# copy($instperl, $usrbinperl); -+# ++# eval { CORE::link $instperl, $usrbinperl } || ++# eval { symlink $expinstperl, $usrbinperl } || ++# copy($instperl, $usrbinperl); +# $mainperl_is_instperl = 1; +# } } |