1# for use by caller.t for GH #15109 and other tests
2package Cpack;
3
4
5my $i = 0;
6
7while (my ($package, $file, $line) = caller($i++)) {
8    push @Cpack::callers, "$file:$line";
9}
10
111;
12