What steps will reproduce the problem? 1. > perlcc -r -e 'use Storable; *Storable::CAN_FLOCK = sub { 1 } if $ENV{fake}; print qq{check ok\n}' Subroutine import redefined at /usr/local/cpanel/3rdparty/perl/514/lib/perl5/5.14.3/i386-linux-64int/Config.pm line 38. check ok

What is the expected output? What do you see instead?

> perl -e 'use Storable; *Storable::CAN_FLOCK = sub { 1 } if $ENV{fake}; print qq{check ok\n}' check ok

Please use labels and text to provide additional information.

minimal script to reproduce the problem

cat script.pl

sub can { require Config; import Config; return $Config{'d_flock'}; }

use IO::File; my $x = $ENV{fake} ? IO::File->new : undef ;

can() if $ENV{fake}; print "ok\n";

1;

First will have to add the special case #183 for ->import methods

Workaround: use -UConfig in the cmdline

Issue 221 has been merged into this issue.

Interestingly fixed by adding -v,-Dp

%INC is wrong

Issue 221 has been merged into this issue.

Possibly related to issue 219. I think the problem goes away once that's resolved.

I see now what's going on:

initializing *!, *+ or *- too early when *INC is not yet setup will lead to all these problems. %INC is wrong (redefinition or not found warnings), *! fails to initialize. So the bisect indeed points to the right commit

Tracked in #27, first testcase.

I guess the reason is wrong handling of GV imports (aliases). We don't share shared GPs yet, and the EGV of *DynaLoader::Config seems to be missing in this case. But even if we had the EGV the shared GP will be a copy, and not shared.