Fix the following error:

Can't use an undefined value as an ARRAY reference at mk/bulk/post-build line 470.

In the case that no packages were broken, getBroken returns a hash
without the key "topten".  When Perl tries to use that undefined value
as an array reference, it croaks.
This commit is contained in:
ben 2005-07-17 13:38:01 +00:00
parent e1555dc02e
commit af63d72ec7

View file

@ -1,5 +1,5 @@
#!/usr/pkg/bin/perl
# $NetBSD: post-build,v 1.55 2005/05/19 20:56:36 kristerw Exp $
# $NetBSD: post-build,v 1.56 2005/07/17 13:38:01 ben Exp $
#
# Collect stuff after a pkg bulk build
#
@ -541,6 +541,7 @@ sub getBroken {
'broken' => [],
'broken depends' => [],
'not packaged' => [],
'topten' => []
};
open (BF, $vars{BROKENFILE}) || return $res;