45dd233be8
- redirect output from h2ph to /dev/null [1]; - fix File::Path insecure file/directory permissions [2]; this resolves CAN-2004-0452 (http://vuxml.freebsd.org/c418d472-6bd1-11d9-93ca-000a95bc6fae.html); - for OSVERSION < 500036, create symlinks in /usr/bin not only for perl and suidperl, but also for a2p, c2ph, find2perl, h2ph, h2xs, perlbug, perlcc, perldoc, pl2pm, pod2html, pod2latex, pod2man, pod2text, s2p, and splain; perl and suidperl are still enough for more recent FreeBSD versions [3]; - clean up created symlinks upon deinstallation [4]; - try to cleanup symlinks created by older versions of lang/perl5 and lang/perl5.8, during both installation and deinstallation [5]; - added support for DISABLE_BSDPAN environment variable [6]; - be explicit about use.perl usage after installation of 4.X systems [7]; - respect __MAKE_CONF partially (the build-time value is used) [8]; - fix threaded build - respect PTHREAD_CFLAGS and PTHREAD_LIBS [9]. - use.perl is now the same as pkg-install is now the same as pkg-deinstall; apart from the changes already mentioned above, this is a shell script now; - use.perl's logic is also simplified in several ways [10]; - fix a BSDPAN bug [11]. Outstanding issues: Module::Build support for BSDPAN, SU_CMD support (PR 70831), PR 64963 (partially), and anything else that I forgot. [1] Nudged by: krion [2] Reported by: nectar Patch from: Chris Turner @ RedHat [3] PR: 55760, 57151, 58406 [4] Requested by: kris PR: 54262 [5] PR: 51281, 51539 [6] PR: 57134 [7] PR: 60736 [8] PR: 74431 [9] PR: 73233 [10] Perl version submitted by des, implemented in sh [11] Reported by: Alexander Nagilum <freebsd %at% nagilum de>
30 lines
1 KiB
Perl
30 lines
1 KiB
Perl
$FreeBSD$
|
|
--- lib/File/Path.pm.orig Sat Jan 29 20:23:40 2005
|
|
+++ lib/File/Path.pm Sat Jan 29 20:24:56 2005
|
|
@@ -196,7 +196,7 @@ sub rmtree {
|
|
# it's also intended to change it to writable in case we have
|
|
# to recurse in which case we are better than rm -rf for
|
|
# subtrees with strange permissions
|
|
- chmod(0777, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
|
|
+ chmod(0700, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
|
|
or carp "Can't make directory $root read+writeable: $!"
|
|
unless $safe;
|
|
|
|
@@ -230,7 +230,7 @@ sub rmtree {
|
|
print "skipped $root\n" if $verbose;
|
|
next;
|
|
}
|
|
- chmod 0777, $root
|
|
+ chmod 0700, $root
|
|
or carp "Can't make directory $root writeable: $!"
|
|
if $force_writeable;
|
|
print "rmdir $root\n" if $verbose;
|
|
@@ -252,7 +252,7 @@ sub rmtree {
|
|
print "skipped $root\n" if $verbose;
|
|
next;
|
|
}
|
|
- chmod 0666, $root
|
|
+ chmod 0600, $root
|
|
or carp "Can't make file $root writeable: $!"
|
|
if $force_writeable;
|
|
print "unlink $root\n" if $verbose;
|