Commit 4c1ffa4cdb for perl

commit 4c1ffa4cdb7f42caae0de2368db682401db3bd58
Author: Tony Cook <tony@develop-help.com>
Date:   Thu Oct 8 09:35:03 2026 +1100

    op/pack.t: give tests some sort of message

diff --git a/t/op/pack.t b/t/op/pack.t
index 05b3deff4f..a5589e9eec 100644
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -1340,7 +1340,7 @@ is(pack('L<L>', (0x12345678)x2),
 	       # print "# junk='$junk', list=(@list2)\n";
 	       $p = pack "$junk $end", @list2, @end;
 	       my @l = unpack "x[$junk] $end", $p;
-	       is(scalar @l, scalar @end);
+	       is(scalar @l, scalar @end, "unpack 'x[$junk] $end'");
 	       is("@l", "@end", "skipping x[$junk]");
 	     }
            }