Bug#602056: Patch must be removed

[Xavier]

Dominique Dumont wrote :
> On Friday 17 May 2013 06:44:46 Xavier wrote:
>> According to https://rt.cpan.org/Public/Bug/Display.html?id=62667 this
>> is not a bug and the Debian patch must be removed.
> 
> OTOH, UNIVERSAL doc mentions:
> 
>            # but never do this!
>            $is_io    = UNIVERSAL::isa($fd, "IO::Handle");
>            $sub      = UNIVERSAL::can($obj, "print");
> 
> 
> I think an alternative is suggested at the end of this man page:
> 
>    Instead, use "reftype" from Scalar::Util for the first case:
> 
>          use Scalar::Util 'reftype';
> 
>          $yes = reftype( $h ) eq "HASH";
> 
> reftype never returns a class name, it always returns the type of the 
> structure hidden behind an object.
> 
> Can you modify the patch and test that it works ?
> 
> If yes, we will be able to submit another patch to upstream.

Hi,

I've written it but the example continue to fail. So with a debug, I've
found something strange : $values contains a ref to a hashref. So I've
written a new patch

Xavier

-------------- next part --------------
A non-text attachment was scrubbed...
Name: hashref_crash.patch
Type: text/x-patch
Size: 2051 bytes
Desc: not available
URL: <http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20130518/61cd56be/attachment-0003.bin>