pb with Cwd::getcwd() ! [perl 5.005_02 / Cygwin32 B.20.1]

pb with Cwd::getcwd() ! [perl 5.005_02 / Cygwin32 B.20.1]

[Sébastien Barré]

(crossposted to the cygwin32 mailing list also)

I'm trying to build/install Perl 5.005_02 for Cygwin32 B20.1
(NT4.0/SP4), and it fails while installing the HTML-pod pages.

After some investigation in the installperl script, I found that the
Cwd::getcwd() (= get pathname of current working directory) was
responsible :

Use ::Cwd;
print getcwd();

=> 
readdir(./..): No such file or directory at yo.pl line 2

If I try to use using cwd() (= same as getcwd but is
implemented using the most natural and safe form for the current
architecture) instead of getcwd();

Use ::Cwd;
print cwd();

=>
/d/devel/gnuwin32/root/tmp/perl5.005_02

which seems OK, although /d/devel/gnuwin32/root is mounted to /, hence
it should better returns /tmp/perl5.005_02.

The problem is, getcwd() seems to be used in many other files in the
distribution, therefore I'd like to fix/understand it in a more general
way before starting to replace all instance of getcwd() with cwd().

Thanks a lot.
-- 
Sebastien Barre : http://www.hds.utc.fr/~barre/

--
Want to unsubscribe from this list?
Send a message to cygwin-unsubscribe@sourceware.cygnus.com

RE: pb with Cwd::getcwd() ! [perl 5.005_02 / Cygwin32 B.20.1]

[Todd Goodman]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 2267 bytes --]

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
tries to build a man page filename by inserting a :: for any packages in
subdirectories (e.g., apache/...)

These double ':' cause parsing problems for the filename.

There's a comment that says "Convert from File/Basename.pm to
File::Basename.3
format, if necessary".  Two lines below that it tests if it's running on
OS/2
or amigaos and converts to a . instead of the ::.

I simply added an additional test, || $^O =~ /cygwin/, so that I created
man pages with the . instead of the ::.

Hope this helps,

Todd Goodman

> -----Original Message-----
> From: cygwin-owner@sourceware.cygnus.com
> [ mailto:cygwin-owner@sourceware.cygnus.com]On Behalf Of
> Sébastien Barré
> Sent: Thursday, February 25, 1999 8:20 PM
> Cc: cygwin@sourceware.cygnus.com
> Subject: pb with Cwd::getcwd() ! [perl 5.005_02 / Cygwin32 B.20.1]
>
>
> (crossposted to the cygwin32 mailing list also)
>
> I'm trying to build/install Perl 5.005_02 for Cygwin32 B20.1
> (NT4.0/SP4), and it fails while installing the HTML-pod pages.
>
> After some investigation in the installperl script, I found that the
> Cwd::getcwd() (= get pathname of current working directory) was
> responsible :
>
> Use ::Cwd;
> print getcwd();
>
> =>
> readdir(./..): No such file or directory at yo.pl line 2
>
> If I try to use using cwd() (= same as getcwd but is
> implemented using the most natural and safe form for the current
> architecture) instead of getcwd();
>
> Use ::Cwd;
> print cwd();
>
> =>
> /d/devel/gnuwin32/root/tmp/perl5.005_02
>
> which seems OK, although /d/devel/gnuwin32/root is mounted to /, hence
> it should better returns /tmp/perl5.005_02.
>
> The problem is, getcwd() seems to be used in many other files in the
> distribution, therefore I'd like to fix/understand it in a
> more general
> way before starting to replace all instance of getcwd() with cwd().
>
> Thanks a lot.
> --
> Sebastien Barre : http://www.hds.utc.fr/~barre/
>
> --
> Want to unsubscribe from this list?
> Send a message to cygwin-unsubscribe@sourceware.cygnus.com
>
>


--
Want to unsubscribe from this list?
Send a message to cygwin-unsubscribe@sourceware.cygnus.com

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

[Sebastien Barre]

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

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

[Todd Goodman]

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

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

[Rick Rankin]

The code in Cwd.pm, specifically in abs_path, is based on the fact that
under Unix, when you stat '.', then cd .., then stat the name of the
directory you just came from, you get the same inode number. That apparently
doesn't happen under Cygwin. Because of that, a loop in abs_path doesn't
terminate properly, and abs_path fails. Todd's fix works, and I have a
little different one that looks like this:

--- CUT HERE ---
*** Cwd.pm      Fri Feb 26 21:09:26 1999
--- Cwd.pm.save Fri Feb 26 21:09:06 1999
***************
*** 371,384 ****
          *abs_path     = \&_qnx_abs_path;
          *fast_abs_path        = \&_qnx_abs_path;
      }
-     elsif ($^O =~ /cygwin/) {
-               *cwd            = \&_backtick_pwd;
-               *getcwd         = \&_backtick_pwd;
-               *fastgetcwd     = \&_backtick_pwd;
-               *fastcwd        = \&_backtick_pwd;
-               *abs_path       = \&_backtick_pwd;
-               *fast_abs_path  = \&_backtick_pwd;
-       }
  }

  # package main; eval join('',<DATA>) || die $@;       # quick test
--- CUT HERE ---

Rick
--
Rick Rankin
rrankin@primenet.com

> -----Original Message-----
> From: cygwin-owner@sourceware.cygnus.com
> [ mailto:cygwin-owner@sourceware.cygnus.com]On Behalf Of Todd Goodman
> Sent: Friday, February 26, 1999 7:59 PM
> To: 'Sebastien Barre'
> Cc: cygwin@sourceware.cygnus.com
> Subject: RE: (C<readdir> broken ?) pb with Cwd::getcwd() ! [perl
> 5.005_02 / Cygwin32 B.20.1]
>
>
> 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
>


--
Want to unsubscribe from this list?
Send a message to cygwin-unsubscribe@sourceware.cygnus.com

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

[Todd Goodman]

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

pb with Cwd::getcwd() ! [perl 5.005_02 / Cygwin32 B.20.1]

[Sébastien Barré]

(crossposted to the cygwin32 mailing list also)

I'm trying to build/install Perl 5.005_02 for Cygwin32 B20.1
(NT4.0/SP4), and it fails while installing the HTML-pod pages.

After some investigation in the installperl script, I found that the
Cwd::getcwd() (= get pathname of current working directory) was
responsible :

Use ::Cwd;
print getcwd();

=> 
readdir(./..): No such file or directory at yo.pl line 2

If I try to use using cwd() (= same as getcwd but is
implemented using the most natural and safe form for the current
architecture) instead of getcwd();

Use ::Cwd;
print cwd();

=>
/d/devel/gnuwin32/root/tmp/perl5.005_02

which seems OK, although /d/devel/gnuwin32/root is mounted to /, hence
it should better returns /tmp/perl5.005_02.

The problem is, getcwd() seems to be used in many other files in the
distribution, therefore I'd like to fix/understand it in a more general
way before starting to replace all instance of getcwd() with cwd().

Thanks a lot.
-- 
Sebastien Barre : http://www.hds.utc.fr/~barre/

--
Want to unsubscribe from this list?
Send a message to cygwin-unsubscribe@sourceware.cygnus.com

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

[Rick Rankin]

The code in Cwd.pm, specifically in abs_path, is based on the fact that
under Unix, when you stat '.', then cd .., then stat the name of the
directory you just came from, you get the same inode number. That apparently
doesn't happen under Cygwin. Because of that, a loop in abs_path doesn't
terminate properly, and abs_path fails. Todd's fix works, and I have a
little different one that looks like this:

--- CUT HERE ---
*** Cwd.pm      Fri Feb 26 21:09:26 1999
--- Cwd.pm.save Fri Feb 26 21:09:06 1999
***************
*** 371,384 ****
          *abs_path     = \&_qnx_abs_path;
          *fast_abs_path        = \&_qnx_abs_path;
      }
-     elsif ($^O =~ /cygwin/) {
-               *cwd            = \&_backtick_pwd;
-               *getcwd         = \&_backtick_pwd;
-               *fastgetcwd     = \&_backtick_pwd;
-               *fastcwd        = \&_backtick_pwd;
-               *abs_path       = \&_backtick_pwd;
-               *fast_abs_path  = \&_backtick_pwd;
-       }
  }

  # package main; eval join('',<DATA>) || die $@;       # quick test
--- CUT HERE ---

Rick
--
Rick Rankin
rrankin@primenet.com

> -----Original Message-----
> From: cygwin-owner@sourceware.cygnus.com
> [ mailto:cygwin-owner@sourceware.cygnus.com]On Behalf Of Todd Goodman
> Sent: Friday, February 26, 1999 7:59 PM
> To: 'Sebastien Barre'
> Cc: cygwin@sourceware.cygnus.com
> Subject: RE: (C<readdir> broken ?) pb with Cwd::getcwd() ! [perl
> 5.005_02 / Cygwin32 B.20.1]
>
>
> 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
>


--
Want to unsubscribe from this list?
Send a message to cygwin-unsubscribe@sourceware.cygnus.com

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

[Sebastien Barre]

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

RE: pb with Cwd::getcwd() ! [perl 5.005_02 / Cygwin32 B.20.1]

[Todd Goodman]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 2268 bytes --]

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
tries to build a man page filename by inserting a :: for any packages in
subdirectories (e.g., apache/...)

These double ':' cause parsing problems for the filename.

There's a comment that says "Convert from File/Basename.pm to
File::Basename.3
format, if necessary".  Two lines below that it tests if it's running on
OS/2
or amigaos and converts to a . instead of the ::.

I simply added an additional test, || $^O =~ /cygwin/, so that I created
man pages with the . instead of the ::.

Hope this helps,

Todd Goodman

> -----Original Message-----
> From: cygwin-owner@sourceware.cygnus.com
> [ mailto:cygwin-owner@sourceware.cygnus.com]On Behalf Of
> Sébastien Barré
> Sent: Thursday, February 25, 1999 8:20 PM
> Cc: cygwin@sourceware.cygnus.com
> Subject: pb with Cwd::getcwd() ! [perl 5.005_02 / Cygwin32 B.20.1]
>
>
> (crossposted to the cygwin32 mailing list also)
>
> I'm trying to build/install Perl 5.005_02 for Cygwin32 B20.1
> (NT4.0/SP4), and it fails while installing the HTML-pod pages.
>
> After some investigation in the installperl script, I found that the
> Cwd::getcwd() (= get pathname of current working directory) was
> responsible :
>
> Use ::Cwd;
> print getcwd();
>
> =>
> readdir(./..): No such file or directory at yo.pl line 2
>
> If I try to use using cwd() (= same as getcwd but is
> implemented using the most natural and safe form for the current
> architecture) instead of getcwd();
>
> Use ::Cwd;
> print cwd();
>
> =>
> /d/devel/gnuwin32/root/tmp/perl5.005_02
>
> which seems OK, although /d/devel/gnuwin32/root is mounted to /, hence
> it should better returns /tmp/perl5.005_02.
>
> The problem is, getcwd() seems to be used in many other files in the
> distribution, therefore I'd like to fix/understand it in a
> more general
> way before starting to replace all instance of getcwd() with cwd().
>
> Thanks a lot.
> --
> Sebastien Barre : http://www.hds.utc.fr/~barre/
>
> --
> Want to unsubscribe from this list?
> Send a message to cygwin-unsubscribe@sourceware.cygnus.com
>
>


--
Want to unsubscribe from this list?
Send a message to cygwin-unsubscribe@sourceware.cygnus.com