This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make SvIsCOW honest about globs
[perl5.git] / ext / XS-APItest / t / sviscow.t
1 use strict;
2 use warnings; no warnings 'once';
3
4 use Test::More tests => 1;
5
6 use XS::APItest;
7 use Hash::Util 'lock_value';
8
9 my %h;
10 $h{g} = *foo;
11 lock_value %h, 'g';
12
13 ok(!SvIsCOW($h{g}), 'SvIsCOW is honest when it comes to globs');