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