1use strict; 2use warnings; no warnings 'once'; 3 4use Test::More tests => 1; 5 6use XS::APItest; 7use Hash::Util 'lock_value'; 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