From f336f32b526e7d74d7b7c0fd51ee95a165dd2f85 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 19 Aug 2002 20:15:14 +0000 Subject: replace "xxx => eval { }" with "xxx => scalar eval {}" --- perl-install/Xconfig/main.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/Xconfig/main.pm') 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); -- cgit v1.2.1