From 6c18325266f5a1a03562e78f2e3205dafcaa82f3 Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Tue, 3 Jul 2007 16:43:17 +0000 Subject: - arch and platform return undef if arch is unspecified --- lib/MDV/Distribconf.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lib/MDV/Distribconf.pm') diff --git a/lib/MDV/Distribconf.pm b/lib/MDV/Distribconf.pm index cc9d201..cd987b2 100644 --- a/lib/MDV/Distribconf.pm +++ b/lib/MDV/Distribconf.pm @@ -463,14 +463,15 @@ sub getvalue { /^os$/ and do { $default = 'linux'; last; }; /^gnu$/ and do { $default = 1; last; }; /^vendor$/ and do { $default = $distrib->{type}; last; }; - /^arch$/ and do { $default = `/bin/arch`; chomp($default); last; }; + /^arch$/ and do { $default = undef; last; }; /^platform$/ and do { - $default = sprintf('%s-%s-%s%s', - $distrib->getvalue($media, 'arch'), + my $arch = $distrib->getvalue($media, 'arch'); + $default = defined($arch) ? sprintf('%s-%s-%s%s', + $arch, $distrib->getvalue($media, 'vendor'), $distrib->getvalue($media, 'os'), $distrib->getvalue($media, 'gnu') ? '-gnu' : '', - ); + ) : undef; last; }; } -- cgit v1.2.1