Path: utzoo!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!uunet!infonode!ingr!b11!guy
From: guy@b11.ingr.com (Guy Streeter)
Newsgroups: comp.lang.perl
Subject: filehandle in local variable?
Message-ID: <guy.668122029@guy>
Date: 4 Mar 91 21:27:09 GMT
Sender: @b11.ingr.com
Organization: Intergraph Corp. Huntsville, AL
Lines: 30

The following code illustrates a problem I'm having:
----------------------------------------------------------------
open (tome,">/usr/tmp/testing") || die "screwed up\n";

open (frim,"</etc/passwd") || die "hosed down\n";

do doit ();

close tome;
close frim;

sub doit {
    local($ltome) = "tome";

    print ($ltome "this is it:\n") || die "before the loop\n";

    while (<frim>) {
	print ($ltome $_) || die "in the loop\n";
    }

    print ($ltome "that was it.\n") || die "after the loop\n";
}
----------------------------------------------------------------
This code always fails on the last "print" in the subroutine, but only
if the filehandle is referenced through the local variable.  Is there
some reason for this, or is it a bug?

thanks,
Guy Streeter
streeter@ingr.com