Front page | perl.perl5.porters |
Postings from May 2012
On Thu, May 10, 2012 at 09:37:21AM +0100, Nicholas Clark wrote:
> On Tue, May 08, 2012 at 11:12:39AM -0700, Steve Siano wrote:
> > Thanks?Tony?for tracking down the root cause and thanks?Chris?for confirming it.
> >
> > Since it is a BSD bug and not a Perl bug, I've updated my code accordingly:
> >
> > if (mkdir($dir, $mode)) {
> > ? ? chomp(my $OS = `uname`);
> >
> > ? ? if ($OS eq 'FreeBSD' && $mode & 01000) {
> > ? ? ? ? if (chmod($mode, $dir)) {
> >
>
> You might want to use $^O instead of `uname`, as it saves some work.
> (Although it's 'freebsd', not 'FreeBSD' in $^O)
>
Confirmed it on DragonflyBSD 3.0.2 now as well.
--
Chris Williams
aka BinGOs
PGP ID 0x4658671F
http://www.gumbynet.org.uk
==========================
Thread Previous
|
Thread Next