#!/usr/bin/perl
use strict;
use warnings FATAL => qw(all);

use Inline 'C';

my $test = eg();

reportHash($test);
reportScalar($test->{x});

$test = undef;

__DATA__
__C__
SV *eg () {
	HV *rv = newHV();
	hv_store(rv, "x", 1, newSVpv("hello", 0), 0);
	return newRV_noinc((SV*)rv);
}

void reportHash (SV *ref) {
	HV *hash = (HV*)SvRV(ref);
	fprintf(stderr,"rc: %d\n", SvREFCNT((SV*)hash));
}

void reportScalar (SV *s) {
	fprintf(stderr,"rc: %d\n", SvREFCNT(s));
}