diff options
| author | damien <damien@mandriva.com> | 2002-09-09 21:49:46 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-09-09 21:49:46 +0000 |
| commit | cf4f09b28bc9afe89d8a2fea0ba6853855ef5e7d (patch) | |
| tree | bceca4e4fcaa1972ab294da66888735586910fac | |
| parent | 344284a416955482b3a0a75ab6677842c6e97169 (diff) | |
| download | drakx-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)
| -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 } |