Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!van-bc!ubc-cs!alberta!oha!tony
From: tony@oha.UUCP (Tony Olekshy)
Newsgroups: comp.lang.perl
Subject: Why does die with no args exit in eval?
Message-ID: <438@oha.UUCP>
Date: 28 Jun 90 21:53:16 GMT
Organization: Olekshy Hoover & Associates Ltd., Edmonton, Alberta, Canada.
Lines: 20

When I run each of the following through perl 3.0.1.5 patch level 18:

    print "Test 1\n"; eval 'die "me"';	print "> $@";
    print "Test 2\n"; eval 'die ""';	print "> $@";
    print "Test 3\n"; eval 'die';	print "> $@";

I get the following output (and I say there should be a > from each case):

    Test 1
    > me at (eval) line 1.
    Test 2
    Test 3

Am I: 1) missing something, 2) misunderstanding something, or 3) triggering
a bug?

--
Yours etc., Tony Olekshy.               Internet: tony%oha@CS.UAlberta.CA
					  BITNET: tony%oha@UALTAMTS.BITNET
					    uucp: alberta!oha!tony