From 90c65f880af471323bbede9ab518f86d79687e1f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 17 Feb 2002 16:50:06 +0000
Subject: force scalar context for warp_text

---
 perl-install/diskdrake/interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index daf750b60..1fd8924ee 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -802,7 +802,7 @@ sub Options {
 		  '',
 		  [ 
 		   (map {; 
-			 { label => $_, text => warp_text(formatAlaTeX($help{$_})), val => \$options->{$_}, 
+			 { label => $_, text => scalar warp_text(formatAlaTeX($help{$_})), val => \$options->{$_}, 
 			   advanced => !$part->{rootDevice} && !member($_, @simple_options), if_(!/=$/, type => 'bool'), }
 		     } keys %$options),
 		    { label => _("Various"), val => \$unknown, advanced => 1 },
-- 
cgit v1.2.1