Bug#590453: libgtk2-perl: Gtk2::FileChooserDialog signal produces different response to ->run()

[Jeffrey Ratcliffe]

Package: libgtk2-perl
Version: 1:1.230-2
Severity: normal

Under Gtk2 1.230, the attached script produces

$ filechooser.pl 
signal returned -5
run returned ok
$ filechooser.pl 
signal returned -6
run returned cancel

depending which button is pressed.

#!/usr/bin/perl -w

use strict;
use Gtk2 -init;

my $file_chooser = Gtk2::FileChooserDialog->new(
 'Open file',
 undef, 'open',
 'gtk-cancel' => 'cancel',
 'gtk-ok'     => 'ok'
);
$file_chooser->signal_connect(
 response => sub {
 my ( $dialog, $response ) = @_;
 print "signal returned $response\n";
 }
);
print "run returned ",$file_chooser->run, "\n";
$file_chooser->destroy;
exit( 0 );