summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-19 20:15:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-19 20:15:14 +0000
commitf336f32b526e7d74d7b7c0fd51ee95a165dd2f85 (patch)
treefa636fdc7114de8d7403b4beb5206a121924b9cf /perl-install
parent2e51473df52bc4eb55d8e4058c9b8f833f59fec0 (diff)
downloaddrakx-backup-do-not-use-f336f32b526e7d74d7b7c0fd51ee95a165dd2f85.tar
drakx-backup-do-not-use-f336f32b526e7d74d7b7c0fd51ee95a165dd2f85.tar.gz
drakx-backup-do-not-use-f336f32b526e7d74d7b7c0fd51ee95a165dd2f85.tar.bz2
drakx-backup-do-not-use-f336f32b526e7d74d7b7c0fd51ee95a165dd2f85.tar.xz
drakx-backup-do-not-use-f336f32b526e7d74d7b7c0fd51ee95a165dd2f85.zip
replace "xxx => eval { }" with "xxx => scalar eval {}"
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/main.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm
index e247b001f..27f8fd76b 100644
--- a/perl-install/Xconfig/main.pm
+++ b/perl-install/Xconfig/main.pm
@@ -127,9 +127,9 @@ sub configure_chooser {
my ($in, $raw_X, $do_pkgs, $options) = @_;
my $X = {
- card => eval { Xconfig::card::from_raw_X($raw_X) },
+ card => scalar eval { Xconfig::card::from_raw_X($raw_X) },
monitor => $raw_X->get_monitors && Xconfig::monitor::from_raw_X($raw_X),
- resolution => eval { $raw_X->get_resolution },
+ resolution => scalar eval { $raw_X->get_resolution },
};
my ($ok, $modified) = configure_chooser_raw($in, $raw_X, $do_pkgs, $options, $X);