Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!uwm.edu!cs.utexas.edu!uunet!bywater!scifi!watson!arnor!arnor!victor
From: victor@watson.ibm.com (Victor Miller)
Newsgroups: comp.lang.perl
Subject: Bug in 4.003
Message-ID: <VICTOR.91Apr18112016@irt.watson.ibm.com>
Date: 18 Apr 91 15:20:16 GMT
Sender: news@watson.ibm.com (NNTP News Poster)
Reply-To: victor@watson.ibm.com
Distribution: comp
Organization: IBM, T.J. Watson Research Center
Lines: 29
Nntp-Posting-Host: irt

I built and tested perl-4.003 (from prep) on three platforms: IBM
BSD/RT, IBM RS/6000, and SparcStation running SunOs 4.  The script
below causes perl to get a core dump on all 3.

#!/usr/local/bin/perl

# /usr/local/bin/foobar should be non-existent
$foobar = '/usr/local/bin/foobar';
sub PLUMBER {
    print join(',',caller());
    die "caught SIG$_[0] -- plumber bailing out";
}
$SIG{'PIPE'} = $SIG{'INT'} = $SIG{'QUIT'} = 'PLUMBER';
sub NOPIPE {
    print join(',',caller(0));
    shift(@_); die "Couldn't pipe:" . join(' ',@_) . "\n";
}
$SIG{'PIPE'} = 'NOPIPE';
open(MESS,"| $foobar") || die "Couldn't pipe to $foobar\n";
print MESS "Hello\n";
print Mess "Goodbye\n";
close(MESS);
print "Return status is $?\n";

--
			Victor S. Miller
			Vnet and Bitnet:  VICTOR at WATSON
			Internet: victor@watson.ibm.com
			IBM, TJ Watson Research Center