t/lib/GH_15109/Cpack.pm


1
2
3
4
5
6
7
8
9
10
11

# for use by caller.t for GH #15109
package Cpack;


my $i = 0;

while (my ($package, $file, $line) = caller($i++)) {
    push @Cpack::callers, "$file:$line";
}

1;