X-Recipient: archive-cygwin@delorie.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@bobsbits.net
To: cygwin@cygwin.com
User-Agent: SquirrelMail/1.4.8
MIME-Version: 1.0
Content-Type: text/plain;charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-IsSubscribed: yes
Mailing-List: contact cygwin-help@cygwin.com; run by ezmlm
List-Id: <cygwin.cygwin.com>
List-Subscribe: <mailto:cygwin-subscribe@cygwin.com>
List-Archive: <http://sourceware.org/ml/cygwin/>
List-Post: <mailto:cygwin@cygwin.com>
List-Help: <mailto:cygwin-help@cygwin.com>, <http://sourceware.org/ml/#faqs>
Sender: cygwin-owner@cygwin.com
Mail-Followup-To: cygwin@cygwin.com
Delivered-To: mailing list cygwin@cygwin.com

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