reftype.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
print "1..0 # Skip: List::Util was not built\n";
exit 0;
}
}
}
# Ensure we do not trigger and tied methods
tie *F, 'MyTie';
@test = (
[ undef, 1],
[ HASH => {} ],
[ ARRAY => [] ],
[ SCALAR => \$t ],
[ REF => \(\$t) ],
[ GLOB => \*F ],
[ CODE => sub {} ],
# [ IO => *STDIN{IO} ] the internal sv_reftype returns UNKNOWN
);
print "1..", @test*4, "\n";
my $i = 1;
my $pack;
print "ok ",$i++,"\n";
}
}
sub DESTROY {}
sub AUTOLOAD {
exit 1; # May be in an eval
}