From b90c152fd97b74858a8dc01e8f6839bd4cbdcac0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 22 Jun 2004 14:02:03 +0000 Subject: remove duplicate (use existing function to_string()) --- perl-install/Xconfig/resolution_and_depth.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm index ecb674f52..4dd830a22 100644 --- a/perl-install/Xconfig/resolution_and_depth.pm +++ b/perl-install/Xconfig/resolution_and_depth.pm @@ -134,7 +134,7 @@ sub choose { [ { val => \$resolution, type => 'list', sort => 0, list => [ sort { $a->{X} <=> $b->{X} } @resolutions ], - format => sub { "$_[0]{X}x$_[0]{Y} $_[0]{Depth}bpp" }, + format => \&to_string, } ]) or return; $resolution; } -- cgit v1.2.1