Path: utzoo!attcan!uunet!convex!convex.COM
From: tchrist@convex.COM (Tom Christiansen)
Newsgroups: comp.lang.perl
Subject: Re: Local file handles?
Keywords: FILEHANDLE LOCAL
Message-ID: <108380@convex.convex.com>
Date: 8 Nov 90 01:02:30 GMT
References: <9317@netxcom.DHL.COM>
Sender: usenet@convex.com
Reply-To: tchrist@convex.COM (Tom Christiansen)
Organization: CONVEX Software Development, Richardson, TX
Lines: 16

In article <9317@netxcom.DHL.COM> elw@netex.netx.com (Edwin Wiles) writes:
>Is there any way to declare a file handle to be local to a given subroutine?

    sub routine {
	local(*FILE);
	open (FILE, "foo");
	...
	do routine();
	...
	close FILE;
    }


works for me.  I don't believe this is (well-)documented.

--tom