Thanks a lot, LanX!

So I changed the sub loadP to the following, and it works :-)

Rata (having learned something today)

sub loadP
{
	$gold = 0;                                              # <--- new
	my $savefile = new FileHandle("xxx.ptysav", "r");
	my $lines  = join("",($savefile->getlines()));
	my $result = eval $lines;
	close ($savefile);	
}

IIRC, this also works:

$gold if 0;
[download]

It doesn't modify the var. It doesn't result in any run-time code at all.

Demo:

$ perl -Mv5.10 -we \
'do { my $x = 42; sub {          say eval q{$x} } }->()'
Variable "$x" is not available at (eval 1) line 1.
Use of uninitialized value in say at -e line 1.


$ perl -Mv5.10 -we \
'do { my $x = 42; sub { $x if 0; say eval q{$x} } }->()'
42
[download]

Update: Tested and added demo.

That's kinda cool if it works (can't test ATM)

But this relies on constant folding happening after the PAD was populated.

I'd feel uncomfortable to use an undocumented feature and risk to run into problems in later perl versions.

IIRC they started to deprecate the similar my $var if 0; (poor man's state ) so I'm kind of sceptical that's guaranteed to stay.

Cheers Rolf
_{(addicted to the Perl Programming Language :)
see Wikisyntax for the Monastery}