1 files changed, 4 insertions, 3 deletions
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
 }