Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!sdd.hp.com!elroy.jpl.nasa.gov!ncar!gatech!mcnc!uvaarpa!mmdf
From: worley@compass.uucp (Dale Worley)
Newsgroups: comp.lang.perl
Subject: Bug
Message-ID: <1990Nov15.003912.26468@uvaarpa.Virginia.EDU>
Date: 15 Nov 90 00:39:12 GMT
Sender: mmdf@uvaarpa.Virginia.EDU (Uvaarpa Mail System)
Reply-To: worley@compass.uucp
Organization: The Internet
Lines: 33

This program dumps core.  I'm sure that it's my problem, but exactly
what am I doing that I'm not allowed to?  (I'm running PL41.)

Dale

Dale Worley		Compass, Inc.			worley@compass.com
--
True, money _can't_ buy happiness, but it isn't happiness I want.  It's money.

#! /usr/local/bin/perl

sub put {
	local(%x);
	local(*array) = *x;
	$save = *x;
	$array{'a'} = 'b';
	print "value saved\n";
}

sub get {
	local(*array) = $save;

	print "fetching...\n";
####### This line causes a segmentation fault:
	$array{'a'};
	print "value retrieved\n";
}

&put();

print "\$save = '$save'\n";

print &get(), "\n";