or.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
# Test || in weird situations.
BEGIN {
chdir 't' if -d 't';
}
sub TIESCALAR {
my $class = shift;
}
sub FETCH {
print "# FETCH! ${$_[0]}\n";
return ${$_[0]}--;
}
require './test.pl';
my ($a, $b, $c);
$! = 1;
$a = $!;
$c = $a || $b;
$c = $a || $b;
my $val = 3;
$c = $val || $b;
is($c, 3);
$c = $a;
$c = $a;
$c = $a || $b;
{
}