package MyObj;
use strict;
use warnings;
use Glib;

use Glib::Object::Subclass
  'Glib::Object',
  properties => [Glib::ParamSpec->int
                 ('foo',
                  'foo',
                  'Blurb.',
                  0, 100, 0,
                  Glib::G_PARAM_READWRITE)
                ];

sub GET_PROPERTY {
  my ($self, $pspec) = @_;
  main::grow_the_stack();
  return 50;
}

package main;
use strict;
use warnings;
use Data::Dumper;

my $str = "en";
foreach (0 .. 500) {
  $str .= ":en$_";
}
print $str,"\n";
$ENV{'LANGUAGE'} = $str;

sub grow_the_stack {
  print Glib::get_language_names;
}


my $obj = MyObj->new;
my @a = $obj->get ('foo');
print Dumper(\ a);