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
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
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/