summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-06 16:02:03 +0000
committerdamien <damien@mandriva.com>2001-08-06 16:02:03 +0000
commite5dbb1eb7abc4f0e63e4da24acbb605eb4a21338 (patch)
tree5c88cff517c2adeb3301dae356eb109d0498c51c /perl-install/my_gtk.pm
parentd7591e4cb7722c3c3e7a1527a6df686b9e281876 (diff)
downloaddrakx-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.tar
drakx-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.tar.gz
drakx-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.tar.bz2
drakx-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.tar.xz
drakx-e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338.zip
corrected gtkradio : shift instead of pop
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index e5021b48d..308f774c8 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -163,7 +163,7 @@ sub gtksignal_connect($@) {
}
sub gtkradio {
- my $def = pop;
+ my $def = shift;
my $radio;
map { $radio = new Gtk::RadioButton($_, $radio ? $radio : ());
$radio->set_active($_ eq $def); $radio } @_;