Skip Menu | will be shut down on March 1st, 2021.

This queue is for tickets about the PathTools CPAN distribution.

Report information
The Basics
Id: 69501
Status: resolved
Priority: 0/
Queue: PathTools

Owner: Nobody in particular
Requestors: ribasushi [...]

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Subject: XS part of Cwd seems to confuse caller
Download (untitled) / with headers
text/plain 704b
I am only reporting this because it may be an indication of some subtle memory corruption. The attached test fails for me on Strawberry perl 5.12: package Main::Caller; my @stacktrace; BEGIN { *CORE::GLOBAL::require = sub { if ($_[0] eq '' and ! @stacktrace) { my $i = 0; while (my @f = caller($i++)) { push @stacktrace, [ @f[0..3] ]; } } CORE::require($_[0]); }; } use warnings; use strict; use Test::More; { package Expected::Caller; use Cwd; sub import { chdir(getcwd()) } } Expected::Caller::import(); ok ( ( !grep { $_->[3] =~ /Main::Caller/ } @stacktrace ), 'nothing ever called back into the topmost namespace' ); done_testing;
Bogus report caused by incorrect override of require(), disregard.

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to