Skip Menu |

This queue is for tickets about the Data_Translate CPAN distribution.

Report information
The Basics
Id: 71615
Status: resolved
Priority: 0/
Queue: Data_Translate

People
Owner: DAVIEIRA [...] cpan.org
Requestors: takefu [...] airport.fm
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



CC: hme [...] gmx.net
Subject: Bug #24430 for Data_Translate: Error in translation h2d
Date: Wed, 12 Oct 2011 12:03:34 +0900
To: bug-Data_Translate [...] rt.cpan.org
From: Takefu <takefu [...] airport.fm>
How about this? --- Translate.pm.orig 2005-06-09 05:45:37.000000000 +0900 +++ Translate.pm 2011-10-12 11:56:23.000000000 +0900 @@ -101,7 +101,7 @@ shift; local (@hex)=@_;my $i; for ($i=0;$i<=$#hex;$i++) { - $hex[$i]=ord(unpack("A", pack("H*", $hex[$i]))); + $hex[$i]=ord(pack("H*", $hex[$i])); } return 1,@hex; } --
Thanks a lot Takefu! It solves perfectly. I'm commiting it, and so sorry for the late response. On Tue Oct 11 23:03:59 2011, takefu@airport.fm wrote: Show quoted text
> How about this? > > --- Translate.pm.orig 2005-06-09 05:45:37.000000000 +0900 > +++ Translate.pm 2011-10-12 11:56:23.000000000 +0900 > @@ -101,7 +101,7 @@ > shift; > local (@hex)=@_;my $i; > for ($i=0;$i<=$#hex;$i++) { > - $hex[$i]=ord(unpack("A", pack("H*", $hex[$i]))); > + $hex[$i]=ord(pack("H*", $hex[$i])); > } > return 1,@hex; > } >
RT-Send-CC: hme [...] gmx.net
I have applied Takefu fix suggestion and will be fixed soon, version 0.3. Thanks for reporting it Heiko, and fixing it, Takefu! Sorry again for the late response over this. Best Regards