Bug#1074010: libgtk3-perl: use Gtk3 -init breaks decimal handling in source

[Jeffrey Ratcliffe]

Package: libgtk3-perl
Version: 0.038-3
Severity: important
Tags: l10n

Dear Maintainer,

   * What led up to the situation?

Installed a new version of Perl

   * What exactly did you do (or not do) that was effective (or
     ineffective)?

I stored the following in a file called "test":

#!/usr/bin/perl

use warnings;
use strict;

use Gtk3 -init;

my $VAR = 0.001;

print "VAR $VAR\n"

and tested it with:

LC_ALL=de_DE perl test

   * What was the outcome of this action?

The following was printed:
VAR 0

   * What outcome did you expect instead?

Either
VAR 0.001

Or
VAR 0,001

If I comment out the "use Gtk3 -init;" line, or even just remove the "-init",
then I get the expect results.

Needless to say, this has a major impact on how Perl source is interpreted in
any locale that uses something other than a decimal point, e.g. a decimal comma
in German or French.


-- System Information:
Debian Release: trixie/sid
  APT prefers testing-debug
  APT policy: (500, 'testing-debug'), (500, 'testing')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 6.5.0-5-amd64 (SMP w/8 CPU threads; PREEMPT)
Kernel taint flags: TAINT_PROPRIETARY_MODULE, TAINT_OOT_MODULE, TAINT_UNSIGNED_MODULE
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8), LANGUAGE=en_GB:en
Shell: /bin/sh linked to /usr/bin/dash
Init: systemd (via /run/systemd/system)
LSM: AppArmor: enabled

Versions of packages libgtk3-perl depends on:
ii  gir1.2-gdkpixbuf-2.0               2.42.12+dfsg-1
ii  gir1.2-gtk-3.0                     3.24.42-1
ii  gir1.2-pango-1.0                   1.54.0+ds-1
ii  libcairo-gobject-perl              1.005-4+b2
ii  libglib-object-introspection-perl  0.051-1+b2
ii  libglib-perl                       3:1.329.3-3+b2
ii  perl                               5.38.2-5

libgtk3-perl recommends no packages.

libgtk3-perl suggests no packages.

-- no debconf information