From ed9c0ad801fc21480be881a12e3fb05064afaca5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 5 Jan 2004 12:34:51 +0000 Subject: get rid of val_ref --- perl-install/standalone/drakups | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups index b92d05a81..5bb66c74f 100755 --- a/perl-install/standalone/drakups +++ b/perl-install/standalone/drakups @@ -128,13 +128,15 @@ Do you prefer autodetect UPS devices connected to this machine or ?"), N("UPS driver configuration") . "\n\n" . N("We are configuring the \"%s\" UPS from \"%s\". Please fill in its name, its driver and its port.", $model, $vendor); }, - data => [ - { label => N("Name:"), val_ref => \\$name, help => N("The name of your ups") }, - { label => N("Driver:"), val_ref => \\$driver, help => N("The driver that manage your ups") }, - { label => N("Port:"), val_ref => \\$port, format => \&mouse::serial_port2text, type => "combo", - list => [ &mouse::serial_ports() ], not_edit => 0, - help => N("The port on which is connected your ups") }, - ], + data => sub { + [ + { label => N("Name:"), val => \$name, help => N("The name of your ups") }, + { label => N("Driver:"), val => \$driver, help => N("The driver that manage your ups") }, + { label => N("Port:"), val => \$port, format => \&mouse::serial_port2text, type => "combo", + list => [ &mouse::serial_ports() ], not_edit => 0, + help => N("The port on which is connected your ups") }, + ]; + }, next => "end", }, end => { -- cgit v1.2.1