summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-09 22:15:22 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-09 22:15:22 +0000
commit9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5 (patch)
tree03a0b7276841ffbe585c42048f1f42284ea94fd9 /perl-install
parent89254809aba33875dd3a434356fa4185247507ad (diff)
downloaddrakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.tar
drakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.tar.gz
drakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.tar.bz2
drakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.tar.xz
drakx-9afaffbcbb8ffde571f88ec05b505ed6c4ce42c5.zip
(appli_choice) fix crash on option toggling (#7248)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfont10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index b07afae31..0ff87a439 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -558,13 +558,13 @@ sub appli_choice() {
0, $label,
1, Gtk2::HBox->new,
# BUG: that code never had supported canceling
- 0, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new, $ref), toggled => sub { $$ref = $$ref ? 0 : 1 }),
+ 0, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new, $$ref), toggled => sub { $$ref = $$ref ? 0 : 1 }),
),
);
- } ([ N("Ghostscript"), $gs ],
- [ N("StarOffice"), $so ],
- [ N("Abiword"), $abi ],
- [ N("Generic Printers"), $printer ],
+ } ([ N("Ghostscript"), \$gs ],
+ [ N("StarOffice"), \$so ],
+ [ N("Abiword"), \$abi ],
+ [ N("Generic Printers"), \$printer ],
),
),
],