From cdfeaa7eeafa5ed513bfd088c23ecbd0f6478a34 Mon Sep 17 00:00:00 2001
From: Steve McIntyre <93sam@debian.org>
Date: Mon, 5 Mar 2012 22:40:51 +0000
Subject: [PATCH] fix perl errors when  is not in the environment

---
 tools/generate_di_list | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tools/generate_di_list b/tools/generate_di_list
index 7a540110..0ba510b1 100755
--- a/tools/generate_di_list
+++ b/tools/generate_di_list
@@ -18,7 +18,10 @@ if ( $ENV{ARCHES} ) {
 }
 @ARCHES = qw{i386 amd64} unless @ARCHES;
 
-@VARIANTS = split(" ", $ENV{VARIANTS});
+my @VARIANTS;
+if ( $ENV{VARIANTS} ) {
+    @VARIANTS = split(" ", $ENV{VARIANTS});
+}
 
 my $DATE=`date`;
 chomp $DATE;