Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!cs.utexas.edu!uunet!convex!tchrist
From: tchrist@convex.com (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: more longjump botches
Message-ID: <-1773786507@convex.convex.com>
Date: 13 Feb 90 04:22:39 GMT
Sender: news@convex.com
Reply-To: tchrist@convex.Com (Tom Christiansen)
Organization: CONVEX Software Development, Richardson, TX
Lines: 37


Version:   perl 3.0, patchlevel 8
System:    convex c220 
Repeat-by: 0. snip the following code and run 'perl -d' on it.
	   1. type &x to the debugger and get longjump botch and SIGILL
	   2. type &y to the debugger and notice you get an (expected) error
	   3. prove to yourself you can call functions with &z

--tom    


=============================== begin snip here =============================
sub x {
    printf "min = %6d   mid = %6d   $max = %6d  (%d)\n",
	$min, $mid, $max, ($mid % $blksize);
} 


sub y {
    local($x) = 0;
    $x = $blksize ? 0 : ($mid % $blksize);
    printf "min = %6d   mid = %6d   $max = %6d  (%d)\n",
	$min, $mid, $max, $x;
} 

sub z {
    print "hello world\n";
}

1;
=============================== end snip here ==============================

--

    Tom Christiansen                       {uunet,uiucdcs,sun}!convex!tchrist 
    Convex Computer Corporation                            tchrist@convex.COM
		 "EMACS belongs in <sys/errno.h>: Editor too big!"