Ruzne chovani

[Jindroush]

Hi,

vidi nekdo na prvni pohled chybu v nasledujicim kodu? U me to funguje
okay, kolegovi se to tvari, jako by ten vstupni soubor mel 0 delku,
proste ten readline asi hned vrati undef. Vim, ze v tech filehandlech
plavu, ale kdyz me to tady na 5.6.1 (ActiveState 626) chodi a kolegovi v
praci na 5.6.1 (ActiveState 631?) ne.

sub open()
{
	my $self = $_[0];
	my $fname = $_[1];

	local *FH;

	close( FH );
	if( ! open FH, $fname )
	{
		die "Can't open infile '$fname'! ($&)\n";
	}

	$$self{ handle } = \*FH;
}

sub close()
{
	my $self = $_[0];
	close $self->{ handle };
}

sub getline()
{
	my $self = $_[0];
	return readline( *{ $$self{ handle } } );
}
-- 
Jindroush <jindroush na nospam.seznam.nospam.cz>
http://jindroush.atari.org - Home of Atari Cartridge Dumping Project
Remove both 'nospam's from the address to reply.