diff options
Diffstat (limited to 't/op/caller.t')
-rw-r--r-- | t/op/caller.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/caller.t b/t/op/caller.t index 00bb984dcb..7ae7fabab1 100644 --- a/t/op/caller.t +++ b/t/op/caller.t @@ -339,14 +339,14 @@ do './op/caller.pl' or die $@; # See that callers within a nested series of 'use's gets the right # filenames. { - local @INC = 'lib/GH_15109/'; + local @INC = 'lib/caller/'; # Apack use's Bpack which use's Cpack which populates @Cpack::caller # with the file:N of all the callers eval 'use Apack; 1'; is($@, "", "GH #15109 - eval"); is (scalar(@Cpack::callers), 10, "GH #15109 - callers count"); - like($Cpack::callers[$_], qr{GH_15109/Bpack.pm:3}, "GH #15109 level $_") for 0..2; - like($Cpack::callers[$_], qr{GH_15109/Apack.pm:3}, "GH #15109 level $_") for 3..5; + like($Cpack::callers[$_], qr{caller/Bpack.pm:3}, "GH #15109 level $_") for 0..2; + like($Cpack::callers[$_], qr{caller/Apack.pm:3}, "GH #15109 level $_") for 3..5; like($Cpack::callers[$_], qr{\(eval \d+\):1}, "GH #15109 level $_") for 6..8; like($Cpack::callers[$_], qr{caller\.t}, "GH #15109 level $_") for 9; |