gnu/usr.bin/perl/ext/XS-APItest/t/sviscow.t


1
2
3
4
5
6
7
8
9
10
11
12
13

use strict;

use Test::More tests => 1;

use XS::APItest;
use Hash::Util 'lock_value';
use warnings; no warnings 'once', 'Hash::Util';

my %h;
$h{g} = *foo;
lock_value %h, 'g';

ok(!SvIsCOW($h{g}), 'SvIsCOW is honest when it comes to globs');