Mail Archives: cygwin/1999/02/26/22:04:38
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
- Raw text -