X-Recipient:	archive-cygwin AT delorie DOT com
X-SWARE-Spam-Status:	No, hits=-2.6 required=5.0 tests=BAYES_00
X-Spam-Check-By:	sourceware.org
Message-ID:	<4046.12.105.86.170.1248381402.squirrel@bobsbits.net>
Date:	Thu, 23 Jul 2009 16:36:42 -0400 (EDT)
Subject:	cygwin 1.7 and perl Fcntl.pm and Touch.pm
From:	bob AT bobsbits DOT net
To:	cygwin AT cygwin DOT com
User-Agent:	SquirrelMail/1.4.8
MIME-Version:	1.0
X-IsSubscribed:	yes
Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Id:	<cygwin.cygwin.com>
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sourceware.org/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com

installed cygwin 1.7

bob AT 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 AT davisrs/c/src654$ perl -MFcntl -e ' print $Fcntl::{"O_NONBLOCK"}, "\n" '
SCALAR(0x100c22a0)

Whereas on a cygwin 1.5 system this produces:

bob AT 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

- Raw text -