From 9b4d6e6beb626083c04748508852413638dc3f73 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 27 Dec 2005 18:38:13 +0000 Subject: perl_checker fix --- tools/draklive | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tools') diff --git a/tools/draklive b/tools/draklive index 87dcf13f6..1cb19d968 100755 --- a/tools/draklive +++ b/tools/draklive @@ -723,7 +723,7 @@ sub copy_wizard { }, data => [ { type => 'list', allow_empty_list => 1, val => \$device, , list => \@available_devices, - format => sub { $_[0]->{formatted_name} } }, + format => sub { $_[0]{formatted_name} } }, { text => N("Format selected device"), val => \$format, type => 'bool' } ], complete => sub { return 0 if defined $device; -- cgit v1.2.1