t/lib/GH_15109 - rename to t/lib/caller

I want to use these modules in other tests, so changing the name
makes sense.

Author: demerphq

MANIFEST

@@ -5684,6 +5684,10 @@ t/io/tell.t			See if file seeking works
 t/io/through.t			See if pipe passes data intact
 t/io/utf8.t			See if file seeking works
 t/japh/abigail.t		Obscure tests
+t/lib/caller/Apack.pm		test Module for caller.t
+t/lib/caller/Bpack.pm		test Module for caller.t
+t/lib/caller/Cpack.pm		test Module for caller.t
+t/lib/caller/Foo.pm		test Module for caller.t
 t/lib/CannotParse.pm		For test case in op/require_errors.t
 t/lib/charnames/alias		Tests of "use charnames" with aliases.
 t/lib/Cname.pm			Test charnames in regexes (op/pat.t)
@@ -5722,10 +5726,6 @@ t/lib/feature/nonesuch		Tests for enabling/disabling nonexistent feature
 t/lib/feature/removed		Tests for enabling/disabling removed feature
 t/lib/feature/say		Tests for enabling/disabling say feature
 t/lib/feature/switch		Tests for enabling/disabling switch feature
-t/lib/GH_15109/Apack.pm		test Module for caller.t
-t/lib/GH_15109/Bpack.pm		test Module for caller.t
-t/lib/GH_15109/Cpack.pm		test Module for caller.t
-t/lib/GH_15109/Foo.pm		test Module for caller.t
 t/lib/h2ph.h			Test header file for h2ph
 t/lib/h2ph.pht			Generated output from h2ph.h by h2ph, for comparison
 t/lib/locale/latin1		Part of locale.t in Latin 1

t/lib/GH_15109/Apack.pm

@@ -0,0 +1,4 @@
+# for use by caller.t for GH #15109 and other tests
+package Apack;
+use Bpack;
+1;

t/lib/GH_15109/Bpack.pm

@@ -0,0 +1,4 @@
+# for use by caller.t for GH #15109 and other tests
+package Bpack;
+use Cpack;
+1;

t/lib/caller/Apack.pm

@@ -1,4 +1,4 @@
-# for use by caller.t for GH #15109
+# for use by caller.t for GH #15109 and other tests
 package Cpack;
 
 

t/lib/caller/Bpack.pm

@@ -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;