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
