Bug#228742: libcorba-orbit-perl: Conversion from string to CORBA::LongLong and CORBA::ULongLong is broken

["Alexey S. Mazurov" <asm@yandex.ru>]

Package: libcorba-orbit-perl
Version: 0.4.3-3
Severity: important
Tags: patch

Following script

#!/usr/bin/perl -w
use CORBA::ORBit;

my $a = new CORBA::LongLong '123';
print "$a\n";
1;

prints 1230

--- libcorba-orbit-perl-0.4.3.orig/exttypes.c
+++ libcorba-orbit-perl-0.4.3/exttypes.c
@@ -79,8 +79,8 @@
 
     while (*str) {
 	if (isdigit (*str)) {
-	    val += *str - '0';
 	    val *= 10;
+	    val += *str - '0';
 	} else if (!isspace (*str))
 	    break;
 	str++;
@@ -151,8 +151,8 @@
 
     while (*str) {
 	if (isdigit (*str)) {
-	    val += *str - '0';
 	    val *= 10;
+	    val += *str - '0';
 	} else if (!isspace (*str))
 	    break;
 	str++;

-- System Information
Debian Release: 3.0
Architecture: i386
Kernel: Linux bstat 2.4.19-yandex-p3-smp #1 SMP Thu Nov 14 17:20:46 MSK 2002 i686
Locale: LANG=ru_RU.KOI8-R, LC_CTYPE=ru_RU.KOI8-R

Versions of packages libcorba-orbit-perl depends on:
ii  libc6                   2.2.5-11.5       GNU C Library: Shared libraries an
ii  liberror-perl           0.13-2           Exception module for Perl
ii  libglib1.2              1.2.10-4         The GLib library of C routines
ii  liborbit0               0.5.16-1         Libraries for ORBit - a CORBA ORB
ii  perl                    5.6.1-8.3        Larry Wall's Practical Extraction 
ii  perl-base [perlapi-5.6. 5.6.1-8.3        The Pathologically Eclectic Rubbis