1use strict;
2
3use Test::More tests => 1;
4
5use XS::APItest;
6use Hash::Util 'lock_value';
7use warnings; no warnings 'once', 'Hash::Util';
8
9my %h;
10$h{g} = *foo;
11lock_value %h, 'g';
12
13ok(!SvIsCOW($h{g}), 'SvIsCOW is honest when it comes to globs');
14