Mailing-List: contact cygwin-help AT sourceware DOT cygnus DOT com; run by ezmlm
Sender: cygwin-owner AT sourceware DOT cygnus DOT com
Delivered-To: mailing list cygwin AT sourceware DOT cygnus DOT com
From: "Todd Goodman" <tsg1 AT earthlink DOT net>
To: "'Sebastien Barre'" <Sebastien DOT Barre AT utc DOT fr>
Cc: <cygwin AT sourceware DOT cygnus DOT com>
Subject: RE: (C<readdir> broken ?) pb with Cwd::getcwd() ! [perl 5.005_02 / Cygwin32 B.20.1]
Date: Fri, 26 Feb 1999 21:58:38 -0500
Message-ID: <001e01be61fd$138424c0$0301a8c0@tgoodman8>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0
In-Reply-To: <4.1.19990226075141.018fbf10@mail.club-internet.fr>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Importance: Normal

I don't have any problem with readdir and getcwd from my
perl source directory works fine:

/usr/local/src/perl5.005_02> perl -e 'use Cwd; print getcwd() . "\n";'   
/usr/local/src/perl5.005_02
/usr/local/src/perl5.005_02>

Did you patch Cwd.pm as in the different instructions for
building Perl?

This is my change in Cwd.pm:

--- cwd.pm	Fri Feb 26 21:52:42 1999
+++ cwd.pm.orig	Fri Jan 22 20:49:54 1999
@@ -208,8 +208,6 @@
     my $start = @_ ? shift : '.';
     my($dotdots, $cwd, @pst, @cst, $dir, @tst);
 
-    return cwd() if ( $^O =~ /cygwin/ );
-
     unless (@cst = stat( $start ))
     {
 	carp "stat($start): $!";

> -----Original Message-----
> From: Sebastien Barre [mailto:Sebastien DOT Barre AT utc DOT fr]
> Sent: Friday, February 26, 1999 1:56 AM
> To: Todd Goodman
> Cc: cygwin AT sourceware DOT cygnus DOT com
> Subject: RE: (C<readdir> broken ?) pb with Cwd::getcwd() ! [perl
> 5.005_02 / Cygwin32 B.20.1]
> 
> 
> At 23:04 25/02/99 -0500, Todd Goodman wrote:
> 
> >I don't quite understand what you're saying below, but I believe the
> >problem you're seeing is because the runpod2man subroutine 
> in installman
> 
> No, it does not seem to be a Perl pb : the Perl getcwd() command (see
> Cwd.pm) just seems not to work, and seems related to 
> readdir() : is there a
> known bug with readdir() ?
> 
> >> Use ::Cwd;
> >> print getcwd();
> 
> By the way, there is a typo, that was :
> 
> >> Use Cwd;
> >> print getcwd();
> 
> 
> ______________________________________________________________
> Sebastien Barre                  http://www.hds.utc.fr/~barre/
> 

--
Want to unsubscribe from this list?
Send a message to cygwin-unsubscribe AT sourceware DOT cygnus DOT com