From e5dbb1eb7abc4f0e63e4da24acbb605eb4a21338 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 6 Aug 2001 16:02:03 +0000
Subject: corrected gtkradio : shift instead of pop

---
 perl-install/my_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/my_gtk.pm')

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 } @_;
-- 
cgit v1.2.1