Skip Menu |
 

This queue is for tickets about the PathTools CPAN distribution.

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

People
Owner: Nobody in particular
Requestors: ribasushi [...] leporine.io
Cc:
AdminCc:

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 'Win32.pm' 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 Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.