[comp.lang.perl] Interesting bug

worley@compass.com (Dale Worley) (10/01/90)

The following script causes Perl to segmentation fault for me.  I'm
running PL28 ($Header: perly.c,v 3.0.1.7 90/08/13 22:22:22 lwall Locked $
Patch level: 28) on a Sun 3/50 running Sun OS 4.0.1.  Also, we have no
device /dev/ttyco.

$now = time;
$x = $now - (stat("/dev/ttyco"))[8];

Dale Worley		Compass, Inc.			worley@compass.com
--
It is a faith (not always justified) of theoretical physics that if
man proposes what is sufficiently elegant, Nature, pleased and
flattered, will say yes.
        --Leon N. Cooper, "Introduction To The Meaning & Structure Of Physics"

lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) (10/01/90)

In article <1990Oct1.153440.25904@uvaarpa.Virginia.EDU> worley@compass.com writes:
: The following script causes Perl to segmentation fault for me.  I'm
: running PL28 ($Header: perly.c,v 3.0.1.7 90/08/13 22:22:22 lwall Locked $
: Patch level: 28) on a Sun 3/50 running Sun OS 4.0.1.  Also, we have no
: device /dev/ttyco.
: 
: $now = time;
: $x = $now - (stat("/dev/ttyco"))[8];

The next update should fix that, since I've outlawed null pointers
on the Perl argument stack.  One of these days...

Larry