+ my ($virt, $result) = split /\000/o, $hash->{$key} || "-\01-", 2;
+
+ my %virt = split /\01/o, $virt;
+ while (my ($suite, $provides) = each %virt) {
+ next if $suite eq '-';
+ if ($opts->{h_suites}{$suite}) {
+ push @$results, [ $key, "-", $suite, 'virtual', 'v', 'v', 'v', 'v',
+ (split /\s/, $provides)];
+ } else {
+ push @$non_results, [ $key, "-", $suite, 'virtual', 'v', 'v', 'v', 'v',
+ (split /\s/, $provides)];
+ }
+ }
+