Path: utzoo!attcan!uunet!samsung!zaphod.mps.ohio-state.edu!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: my ioctl's don't work
Message-ID: <7750@jpl-devvax.JPL.NASA.GOV>
Date: 12 Apr 90 16:14:41 GMT
References: <1990Apr11.142002.26192@me.toronto.edu> <7742@jpl-devvax.JPL.NASA.GOV> <1990Apr12.094108.24785@me.toronto.edu>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Distribution: comp
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 10

In article <1990Apr12.094108.24785@me.toronto.edu> eastick@me.utoronto.ca (Doug Eastick) writes:
: From ioctl.h, if it helps:
: 	eval 'sub _IOR {
: 	    local($x,$y,$t) = @_;
: 	    eval "(&IOC_OUT|(($sizeof{$t}&&IOCPARM_MASK)<<16)|(ord(\'$x\')<<8)|$y)";
: 	}';

Oh, that's the && bug.  It should read $sizeof{$t} & &IOCPARM_MASK.

Larry