FS#78556 - [perl-glib-object-introspection] 0.050-1 crashes

Attached to Project: Community Packages
Opened by Josh Harding (TheAmigo) - Friday, 19 May 2023, 19:30 GMT
Last edited by Muflone (muflone) - Sunday, 04 June 2023, 23:12 GMT
Task Type Bug Report
Category Upstream Bugs
Status Closed
Assigned To Muflone (muflone)
Architecture All
Severity Low
Priority Normal
Reported Version
Due in Version Undecided
Due Date Undecided
Percent Complete 100%
Votes 0
Private No

Details

Description:
Attempting to open a popup menu results in a crash

Additional info:
* perl-glib-object-introspection-0.050-1-x86_64 has the problem
* perl-glib-object-introspection-0.049-3-x86_64 works as expected

Steps to reproduce:
* Running the sample code and right-click on the button should open a popup menu. With 0.049-3 installed it works, upgrading to 0.050-1 results in a crash

#!/usr/bin/perl -w
use strict;
use Glib qw/TRUE FALSE/;
use Gtk3 -init;
my $win = Gtk3::Window->new;
$win->signal_connect(destroy => sub {Gtk3::main_quit});
my $btn = Gtk3::Button->new_with_label("pop-up menu");
my $menu;
$btn->signal_connect('button-press-event' => sub {
my ($widget, $event) = @_;
return FALSE unless $event->button == 3;
$menu = Gtk3::Menu->new;
$menu->attach(Gtk3::MenuItem->new_with_label(''.localtime), 0, 1, 0, 1);
$menu->show_all;
$menu->popup(undef, undef, undef, undef, $event->button, $event->time);
return TRUE;
});
$win->add($btn);
$win->show_all;
Gtk3->main;
This task depends upon

Closed by  Muflone (muflone)
Sunday, 04 June 2023, 23:12 GMT
Reason for closing:  Fixed
Additional comments about closing:  fixed in perl-glib-object-introspection 0.050-2

Loading...