Path: csiph.com!newsfeed.hal-mli.net!feeder3.hal-mli.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!us.feeder.erje.net!feeder.erje.net!eu.feeder.erje.net!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Rainer Weikusat <rweikusat@mssgmbh.com>
Newsgroups: comp.lang.perl.misc
Subject: Re: the fastest way to create a directory
Date: Fri, 19 Jul 2013 10:46:05 +0100
Lines: 17
Message-ID: <87fvva2882.fsf@sapphire.mobileactivedefense.com>
References: <ks0l7j$9j4$1@news.ntua.gr> <kbaeba-dfc1.ln1@anubis.morrow.me.uk> <slrnkubflf.ef9.hjp-usenet3@hrunkner.hjp.at> <87mwplo6sj.fsf@sapphire.mobileactivedefense.com> <ks71fk$2rgk$1@news.ntua.gr> <87oba0yiu5.fsf@sapphire.mobileactivedefense.com> <ks9l5b$1jcm$1@news.ntua.gr>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: individual.net jiUtoHju6YCxqlJrmXPhVQz+0nHIGoFn1+7RmaS7pzbf5DEUc=
Cancel-Lock: sha1:vmoVloG3l1w/COmDqjUCinVfT9M= sha1:YPlI61LIn7Rctglro1X5PPQ/e28=
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux)
Xref: csiph.com comp.lang.perl.misc:8757

"George Mpouras"
<nospam.gravitalsun.antispam@spamno.hotmail.anispam.com.nospam>
writes:
> Believe it or the following makes 18 uneccassery disk accesses

[...]

> use Errno qw(EEXIST ENOTDIR);
> my $access=0;
> mkdir_p("/opt/d1/d2/d3/d4/d5") or die("$!");
> mkdir_p("/opt/d1/d2/d3/d4/d5") or die("$!");
> mkdir_p("/opt/d1/d2/d3/d4/d5") or die("$!");
> print "disk touches : $access\n";

If it does, you're kernel is seriously disabled. Leaving this aside,
that's the expected result when you call it uselessly three times in a
row with an argument like that.