Path: utzoo!censor!geac!torsqnt!hybrid!scifi!bywater!uunet!convex!usenet
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Bug in perl3pl44?
Message-ID: <1991Feb02.035717.29724@convex.com>
Date: 2 Feb 91 03:57:17 GMT
References: <8310020@hpnmdla.HP.COM>
Sender: usenet@convex.com (news access account)
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Software Development, Richardson, TX
Lines: 18
Nntp-Posting-Host: pixel.convex.com

Your example works fine for me at the stated patchelvel.  I get
the output.  You might use indirect filehandles as a workaround:

    &openfile('output',$file);

    sub openfile {
	local($fh, $name);
	open($fh, $name) || ...
    } 


--tom

(That's on a Convex 220, O/S version 9.0, gcc v1.39).
--
"Hey, did you hear Stallman has replaced /vmunix with /vmunix.el?  Now
 he can finally have the whole O/S built-in to his editor like he
 always wanted!" --me (Tom Christiansen <tchrist@convex.com>)