package ExtUtils::MakeMaker::Config; use vars ('$VERSION'); $VERSION = '0.02'; use strict; my $cm; if (eval "require Config_mingw" and not $@) { foreach my $inck (keys %INC) { if ($inck =~ s/(^Config_\w+)\.pm$/$1/) { $cm = $inck; last; } } } if (not $cm) { eval "use Config (); %ExtUtils::MakeMaker::Config::Config = %Config::Config;"; } else { eval "use $cm; use Config;" if $cm; } sub import { my $caller = caller; no strict 'refs'; *{$caller.'::Config'} = \%ExtUtils::MakeMaker::Config::Config; } 1; __END__