(C<readdir> broken ?) pb with Cwd::getcwd() ! [perl 5.005_02 / Cygwin32 B.20.1]

Todd Goodman tsg1@earthlink.net
Fri Feb 26 19:03:00 GMT 1999


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.Barre@utc.fr ]
> Sent: Friday, February 26, 1999 1:56 AM
> To: Todd Goodman
> Cc: cygwin@sourceware.cygnus.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@sourceware.cygnus.com



More information about the Cygwin mailing list