From cf4f09b28bc9afe89d8a2fea0ba6853855ef5e7d Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 9 Sep 2002 21:49:46 +0000
Subject: corrected typo (modification of constant if ugtk.pm was a string)

---
 perl-install/ugtk.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 5c05a31a7..b5042aa30 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -80,9 +80,10 @@ sub gdkpixmap {
 sub gtkadd {
     my $w = shift;
     foreach (@_) {
-	ref $_ or $_ = new Gtk::Label($_);
-	$w->add($_);
-	$_->show;
+	my $l = $_;
+	ref $l or $l = new Gtk::Label($l);
+	$w->add($l);
+	$l->show;
     }
     $w
 }
-- 
cgit v1.2.1