[modperl-embperl] Re: DBIx::Recordset struggles to pass tests

Okay, I know what the problem is, but I don't know what to do about it.

tied hashes may not return typeglobs.

$Page = $this->Commons->listArticles({
'$fields' => 'id,dtm,summary,title,field1,field2,content,contenttype',
id => $fdat{_preview}
});

my $obj = tied(%$Page);
my $rec = $obj->{'*Recordset'}-> Curr();
$rec = tied(%$rec);

# we now have the DBIx::Recordset::Row that would have gotten used
# by $Page->{-keyword};

$key = $rec->FETCH('-keyword');

# that will return the typeglob *DBIx::Recordset::newself
# this will crash with "Can't upgrade that kind of scalar"
$key = $Page->{'-keyword'};

But both call the same code.

I can't change all my code to deal with this. It looks to me like a
Perl bug. Any ideas?