# New Ticket Created by Will Coleda
# Please include the string: [perl #122346]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=122346 >
S02-names-vars/variables-and-packages.t has several TODO'd tests of this sort:
{
nok foo().defined, "get variable not yet declared using a sub (1)";
is foo(), 1, "get variable not yet declared using a sub (2)";
is foo(), 2, "get variable not yet declared using a sub (3)";
my $a;
sub foo { $a++ }
}
Where the expectation is that the first call to the foo will return an
undefined value; in nom, it returns 0.
--
Will "Coke" Coleda
