diff --git a/disc-cover b/disc-cover
index a8fa77d..c77c813 100755
--- a/disc-cover
+++ b/disc-cover
@@ -743,7 +743,7 @@ sub end_program
 {
 	my ($error) = defined($_[0]) ? $_[0] : undef ;
 	shift;
-	my (@solutions) = defined(@_) ? @_ : undef;
+	my (@solutions) = scalar @_ ? @_ : undef;
 
 	warn "Error: $error\n" if defined ($error);