[comp.lang.perl] more longjump botches

tchrist@convex.com (Tom Christiansen) (02/13/90)

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!"