Symbolic links and file tests in perl

Symbolic links and file tests in perl

[Scott Webster Wood]

I tried doing a if(-l $file) where $file was the name of a symbolically linked directory in the current working directory and it returned a false.  Doing a (-d $file) returned true.
Is there any way to work around this and then retrieve the real path of a symbolically linked directory under cygwin?

SW




      ____________________________________________________________________________________
Be a better friend, newshound, and 
know-it-all with Yahoo! Mobile.  Try it now.  http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

Re: Symbolic links and file tests in perl

[Brian Dessent]

Scott Webster Wood wrote:

> I tried doing a if(-l $file) where $file was the name of a symbolically linked directory in the current working directory and it returned a false.  Doing a (-d $file) returned true.

I can't reproduce this:

$ mkdir foo; ln -s foo bar

$ perl -e 'print "yes\n" if (-l "bar");'
yes

Please provide a testcase that demonstrates the problem.

> Is there any way to work around this and then retrieve the real path of a symbolically linked directory under cygwin?

$ perl -e 'print readlink("bar")'
foo

Brian

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/