- arch and platform return undef if arch is unspecified

1 files changed, 5 insertions, 4 deletions

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;
         };
     }