Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sources.redhat.com/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com
From:	"Bernard A Badger" <bab AT vx DOT com>
To:	"cygwin" <cygwin AT cygwin DOT com>
Subject:	RE: Cygwin is SLOW.
Date:	Tue, 16 Jul 2002 10:13:10 -0400
Message-ID:	<INEKLKBFCDBPKMKAJLMDKEPLCFAA.bab@vx.com>
MIME-Version:	1.0
X-Priority:	3 (Normal)
X-MSMail-Priority:	Normal
In-Reply-To:	<INEKLKBFCDBPKMKAJLMDOEPKCFAA.bab@vx.com>
X-MIMEOLE:	Produced By Microsoft MimeOLE V6.00.2600.0000
Importance:	Normal

Hmm.  My Perl book (TYP21days) says that chmod needs write permission on 
the ***file***, but I changed the script and it works anyway.
One last time, chm.pl:

$file = "test.file";
chmod ( 0000, ($file) ) || die "chmod ( 0000, (\"$file\") ): $!";
#-w $file || die "perl chmod will fail w/o write permission on $file\n";
$t = time;
while( $t == time ) {}
$t = time;
$secs = 5;
$stop = $t + $secs;
while( time < $stop ) {
  chmod (0777, ($file) ) == 1 or die "blah, $!";
  $n++;
}
print $n / $secs, " chmods per sec\n";
-w $file || die "test.file is not writeable: $!";


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

- Raw text -