adhoc-revtuple-generator: Fix an undef warning in a debug print

$parents might be undef here.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---
New in v2.

diff --git a/adhoc-revtuple-generator b/adhoc-revtuple-generator
index c8d6f4ad33c38672c6b2806c70f53aa98fa2390c..ec33305a03d7453787e70c874f973c91b5df8f82 100755 (executable)
--- a/adhoc-revtuple-generator
+++ b/adhoc-revtuple-generator
@@ -463,7 +463,7 @@ sub coalesce {
        $out->{$node}{Date}= $explode_date;
        my $parents= $graphs[$explode_i]{ $node[$explode_i] }{Parents};
        print DEBUG "#$explode_i $explode_isearliest".
-            " $explode_date  x".scalar(@$parents)."\n";
+            " $explode_date  x".($parents ? scalar(@$parents) : "-")."\n";
 
        foreach my $subparent (@$parents) {
            $node[$explode_i]= $subparent;