Select Code to Download

    t/02-internals_magic.t # generated by caller()
     ^
...
    t\02-internals_magic.t # generated by File::Spec->catfile()
     ^
as expected

print "$0 running in Perl $^V\n";
foo::t();
package foo;
sub t { @c = caller; print "Caller[1] is: $c[1]\n";}