cygwin 1.7 and perl Fcntl.pm and Touch.pm

[bob at bobsbits dot net]

installed cygwin 1.7

bob@davisrs/c/src654$ cygcheck -c cygwin
Cygwin Package Information
Package              Version        Status
cygwin               1.7.0-51       OK

used cpan to install File::Touch

The install fails from what appears to be an error with this module:

bob@davisrs/c/src654$ perl -MFcntl -e ' print $Fcntl::{"O_NONBLOCK"}, "\n" '
SCALAR(0x100c22a0)

Whereas on a cygwin 1.5 system this produces:

bob@davisrs1~$ perl -MFcntl -e ' print $Fcntl::{"O_NONBLOCK"}, "\n"'
*Fcntl::O_NONBLOCK

The failing line(s) in touch.pm is:

eval {
    $SYSOPEN_MODE |= &{ $Fcntl::{'O_NONBLOCK'} };
};
if($@) {
    if($@ =~ /Your vendor has not defined/) {
	# probably running on Windows.
    } else {
	die "$@"; # Rethrow exception, must be something different
    }



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