1 files changed, 11 insertions, 0 deletions
diff --git a/t/lib/caller/Cpack.pm b/t/lib/caller/Cpack.pm
new file mode 100644
index 0000000000..86c422f24e
--- /dev/null
+++ b/t/lib/caller/Cpack.pm
@@ -0,0 +1,11 @@
+# for use by caller.t for GH #15109 and other tests
+package Cpack;
+
+
+my $i = 0;
+
+while (my ($package, $file, $line) = caller($i++)) {
+    push @Cpack::callers, "$file:$line";
+}
+
+1;