From 3e4ccce9b814a28945e9d8cc4989dff5c2e42c65 Mon Sep 17 00:00:00 2001
From: Elizabeth Mattijsen <liz@wenzperl.nl>
Date: Sat, 11 Nov 2017 21:05:47 +0100
Subject: [PATCH] Tweak the T:I:Usage.preamble + allow util% in R_R_COLUMNS

- also show final memory size for easy observation
- make sure you can specify a column name with % in RAKUDO_REPORT_COLUMNS
---
 lib/Telemetry.pm6 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Telemetry.pm6 b/lib/Telemetry.pm6
index d6e75264db4..f4159b6c883 100644
--- a/lib/Telemetry.pm6
+++ b/lib/Telemetry.pm6
@@ -110,7 +110,7 @@ class Telemetry::Instrument::Usage does Telemetry::Instrument {
 
     method preamble($first, $last, $total, @snaps --> Str:D) {
         qq:to/HEADER/.chomp;
-Initial Size:    { @snaps[0]<max-rss>.fmt('%9d') } Kbytes
+Initial/Final Size: { $first<max-rss> } / { $last<max-rss> } Kbytes
 Total Time:      { ($total<wallclock> / 1000000).fmt('%9.2f') } seconds
 Total CPU Usage: { ($total<cpu> / 1000000).fmt('%9.2f') } seconds
 HEADER
@@ -798,7 +798,7 @@ HEADER
     # determine columns to be displayed
     unless @columns {
         if %*ENV<RAKUDO_REPORT_COLUMNS> -> $rrc {
-            @columns = $rrc.comb( /<[\w-]>+/ );
+            @columns = $rrc.comb( /<[\w%-]>+/ );
         }
         else {
             @columns.append(.columns) for $sampler.instruments;