$EVENT=Gtk::Gdk->event_new(); segfault

["Riswick, J.G.A. van" <J G A v Riswick tue nl>]

HI

I wrote a gtk-perl script that produces a gtkrc file and afterwards
sends the signal _GTK_READ_RCFILES so that the gtk theme is updated
in all running gtk applications. This works fine on my computer, but
one of the (4) users of the script reported a segfault occurring. We
managed to isolate the code in which this happens, and I included a 
small test program below. The segfault seems to be caused by the line

$EVENT=Gtk::Gdk->event_new();

Is this a bug of gtk-perl, or am I doing something wrong? The user also
included some information about his system, and a 'strace', which I 
will also include below. 

jos

-------------------------------------------------------
test program:
------------------------------------------------------
#!/usr/bin/perl -w

use Gtk;
use Gtk::Gdk::ImlibImage;
use Gtk::Gdk::Pixbuf;
init Gtk;

my $EVENT="";
$EVENT=Gtk::Gdk->event_new();
$EVENT->{'send_event'}=1;
$EVENT->{'button'}=3;
$EVENT->{'type'}="client-event";
$EVENT->{'message_type'}=Gtk::Gdk::Atom->intern("_GTK_READ_RCFILES", 0);
$EVENT->{'data_format'}=8;
$EVENT->{'data'}=0;
$EVENT->{'window'}=undef;

sub gtkrc_refresh {
    Gtk::Gdk->event_send_clientmessage_toall ($EVENT);
}

sub kde_refresh {
    system("kderefresh");
}

gtkrc_refresh();

print "ok\n";
----------------------------------------------------------
system info:
-----------------------
[10:09] (pts/2) root darkman:~# apt-cache show libgtk-perl
Package: libgtk-perl
Priority: optional
Section: interpreters
Installed-Size: 1724
Maintainer: Paolo Molaro <lupus debian org>
Architecture: i386
Version: 0.7008-1.2
Depends: perl (>= 5.6.1-5), perlapi-5.6.1, libc6 (>= 2.2.4-4), libglib1.2
(>= 1.2.0), libgtk1.2 (>= 1.2.10-2.1), xlibs (>> 4.1.0)
-------------------------------------------
strace:
----------------------
[12:09] (pts/3) darkman darkman:~/tmp> ./t.pl
Segmentation fault
[12:12] (pts/3) darkman darkman:~/tmp>

see:

http://www.xs4all.nl/~josvanr/dump