add debug output

coke · coke · commit 519bc43cdace · 2025-03-25T13:22:14.000-04:00
diff --git a/xbin/Releasable.p6 b/xbin/Releasable.p6
@@ -131,7 +131,7 @@ sub changelog-to-stats($changelog) {
     my $ignored = set ignored-commits;
     my @unlogged = @git-commits.grep: * !∈ ($commits-mentioned ∪ $ignored); # ordered
     $summary //= “{@git-commits - @unlogged} out of {+@git-commits} commits logged”;
-    $summary ~= " (VERSION: $version) (ACTUAL COMMIT: $actual-commit-old)";
+    $summary ~= " (VERSION: $version) (VERSION-old: $version-old) (ACTUAL COMMIT: $actual-commit-old) (2025.03: {to-full-commit('2025.03')}";
     { :$summary, :@unlogged, :@warnings }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -131,7 +131,7 @@ sub changelog-to-stats($changelog) {`
`131`	`131`	`my $ignored = set ignored-commits;`
`132`	`132`	`my @unlogged = @git-commits.grep: * !∈ ($commits-mentioned ∪ $ignored); # ordered`
`133`	`133`	`$summary //= “{@git-commits - @unlogged} out of {+@git-commits} commits logged”;`
`134`		`- $summary ~= " (VERSION: $version) (ACTUAL COMMIT: $actual-commit-old)";`
	`134`	`+ $summary ~= " (VERSION: $version) (VERSION-old: $version-old) (ACTUAL COMMIT: $actual-commit-old) (2025.03: {to-full-commit('2025.03')}";`
`135`	`135`	`{ :$summary, :@unlogged, :@warnings }`
`136`	`136`	`}`
`137`	`137`