diff --git a/ms-planner b/ms-planner index 4e38e4e3..78d27b2f 100755 --- a/ms-planner +++ b/ms-planner @@ -414,11 +414,13 @@ END next if $plan->{Events}{$reskey}; print DEBUG "document existing quiescent sharing $reskey". " share.Type $cshare->{Type}\n"; + my $type = $cshare->{Type}; + $type = "$&..." if $type =~ m{^test-\d+(?=\-)}; my $evt = { Time => $plan->{Start}, Type => Unshare, Avail => 1, - Info => "recently shared $cshare->{Type}", + Info => "recently $type", PreviousShare => { %$cshare }, }; delete $evt->{PreviousShare}{OnlyPreparing};