cycle: Print a diff of the changes, if there are any.

[dvddb] / report

diff --git a/report b/report
index f8d0326..9f2bc11 100755 (executable)
--- a/report
+++ b/report
@@ -85,11 +85,6 @@ for my $name (sort { my $pa = $set_path{$a}[0]; my $ba = $box{$pa} // "~~~";
   my $paths = $set_path{$name};
   my @unk;
   set_box $box{$paths->[0]};
-  while (@iso && $iso[0] lt $paths->[0]) { push @unk, shift @iso; }
-  if (@unk) {
-    print "[#UNK: *]\n";
-    for my $path (@unk) { print "\t", $path, "\n"; }
-  }
   printf "[#%d: %d] %s\n", $set_id{$name}, scalar @$paths, $name;
   my $i = 0;
   for my $path (@$paths) {