#!./perl
print "1..12\n";
}
}
{
# [ID 20020626.011] incorrect wantarray optimisation
$a;
}
print +(@b == 1 && "@b" eq "2") ? "ok 8\n" : "not ok 8\t# <@b>\n"; print +($c == 2) ? "ok 9\n" : "not ok 9\t# <$c>\n";
}
};
print $q eq 'V' ? "ok 10\n" : "not ok 10\n"; print $q eq 'S' ? "ok 11\n" : "not ok 11\n"; print $q eq 'A' ? "ok 12\n" : "not ok 12\n";
1;