diff options
| -rw-r--r-- | perl-install/ugtk.pm | 7 |
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 } |