summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakups
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-05 12:34:51 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-05 12:34:51 +0000
commited9c0ad801fc21480be881a12e3fb05064afaca5 (patch)
tree4fd5a0d21f83422e798b9530a4295bf36b464f23 /perl-install/standalone/drakups
parent59d2fc3eaf0c46edd993217ab331e6f6ef9243c3 (diff)
downloaddrakx-ed9c0ad801fc21480be881a12e3fb05064afaca5.tar
drakx-ed9c0ad801fc21480be881a12e3fb05064afaca5.tar.gz
drakx-ed9c0ad801fc21480be881a12e3fb05064afaca5.tar.bz2
drakx-ed9c0ad801fc21480be881a12e3fb05064afaca5.tar.xz
drakx-ed9c0ad801fc21480be881a12e3fb05064afaca5.zip
get rid of val_ref
Diffstat (limited to 'perl-install/standalone/drakups')
-rwxr-xr-xperl-install/standalone/drakups16
1 files changed, 9 insertions, 7 deletions
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 => {