/);
die ("Uhoh, test uses an outdated version of Devel::Size")
- unless is ($Devel::Size::VERSION, '0.73', 'VERSION MATCHES');
+ unless is ($Devel::Size::VERSION, '0.73_50', 'VERSION MATCHES');
#############################################################################
# some basic checks:
{
my $a = [];
my $b = \$a;
- weaken $b;
- cmp_ok(total_size($a), '>', total_size([]),
- 'making a weakref upgrades the target to PVMG and adds magic');
+ # making a weakref upgrades the target to PVMG and adds magic
+ is(total_size($a), total_size([]),
+ 'Any intial reference is dereferenced and discarded');
}