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