fix perl errors when is not in the environment

This commit is contained in:
Steve McIntyre 2012-03-05 22:40:51 +00:00
parent 55f8fdac36
commit cdfeaa7eea
1 changed files with 4 additions and 1 deletions

View File

@ -18,7 +18,10 @@ if ( $ENV{ARCHES} ) {
} }
@ARCHES = qw{i386 amd64} unless @ARCHES; @ARCHES = qw{i386 amd64} unless @ARCHES;
@VARIANTS = split(" ", $ENV{VARIANTS}); my @VARIANTS;
if ( $ENV{VARIANTS} ) {
@VARIANTS = split(" ", $ENV{VARIANTS});
}
my $DATE=`date`; my $DATE=`date`;
chomp $DATE; chomp $DATE;