| Subject: | Bug in neuterify |
| Date: | Fri, 6 Mar 2009 15:49:06 +0800 |
| To: | "bug-Data-Secs2 [...] rt.cpan.org" <bug-Data-Secs2 [...] rt.cpan.org> |
| From: | Bipin Vijayasenan <Bipin_V [...] infosys.com> |
Hi
We are getting a bug while using 48 as U1 data, Both 47 and 49 are fine.
Please see the example code below.
Appreciate you help.
Regards,
Bipin V
Show quoted text
__________________________________________________________
my $big_secs2 =
'a501'.'50'.'a501'.'30';
my $output2 = Data::Secs2->secsify(Data::Secs2->neuterify(pack('H*',$big_secs2)));
print $output2;
==>Result after execution:
U1[1] 80 #for the first item 'a501'.'50'
U1[0] #for the second one 'a501'.'30' (U1,48).
Decoding is still incorrect.
**************** CAUTION - Disclaimer *****************
This e-mail contains PRIVILEGED AND CONFIDENTIAL INFORMATION intended solely
for the use of the addressee(s). If you are not the intended recipient, please
notify the sender by e-mail and delete the original message. Further, you are not
to copy, disclose, or distribute this e-mail or its contents to any other person and
any such actions are unlawful. This e-mail may contain viruses. Infosys has taken
every reasonable precaution to minimize this risk, but is not liable for any damage
you may sustain as a result of any virus in this e-mail. You should carry out your
own virus checks before opening the e-mail or attachment. Infosys reserves the
right to monitor and review the content of all messages sent to or from this e-mail
address. Messages sent to or from this e-mail address may be stored on the
Infosys e-mail system.
***INFOSYS******** End of Disclaimer ********INFOSYS***