summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-09-09 21:49:46 +0000
committerdamien <damien@mandriva.com>2002-09-09 21:49:46 +0000
commitcf4f09b28bc9afe89d8a2fea0ba6853855ef5e7d (patch)
treebceca4e4fcaa1972ab294da66888735586910fac /perl-install/ugtk.pm
parent344284a416955482b3a0a75ab6677842c6e97169 (diff)
downloaddrakx-cf4f09b28bc9afe89d8a2fea0ba6853855ef5e7d.tar
drakx-cf4f09b28bc9afe89d8a2fea0ba6853855ef5e7d.tar.gz
drakx-cf4f09b28bc9afe89d8a2fea0ba6853855ef5e7d.tar.bz2
drakx-cf4f09b28bc9afe89d8a2fea0ba6853855ef5e7d.tar.xz
drakx-cf4f09b28bc9afe89d8a2fea0ba6853855ef5e7d.zip
corrected typo (modification of constant if ugtk.pm was a string)
Diffstat (limited to 'perl-install/ugtk.pm')
-rw-r--r--perl-install/ugtk.pm7
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
}