defins.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -w
#
# test auto defined() test insertion
#
BEGIN {
chdir 't' if -d 't';
print "1..14\n";
}
print "ok 1\n";
my $seen = 0;
my $dummy;
{
}
print "ok 2\n";
$seen = 0;
do
{
print "ok 3\n";
$seen = 0;
{
}
print "ok 4\n";
$seen = 0;
my %where;
{
}
print "ok 5\n";
$seen = 0;
{
$seen++ if $name eq $wanted_filename;
}
print "ok 6\n";
$seen = 0;
{
$seen++ if $name eq $wanted_filename;
}
print "ok 7\n";
$seen = 0;
{
$seen++ if $where{$seen} eq $wanted_filename;
}
print "ok 8\n";
$seen = 0;
{
$seen++ if $name eq $wanted_filename;
}
print "ok 9\n";
$seen = 0;
{
$seen++ if $name eq $wanted_filename;
}
print "ok 10\n";
$seen = 0;
{
$seen++ if $where{$seen} eq $wanted_filename;
}
print "ok 11\n";
my %hash = (0 => 1, 1 => 2);
$seen = 0;
{
}
print "ok 12\n";
$seen = 0;
{
}
print "ok 13\n";
$seen = 0;
{
}
print "ok 14\n";