my $code = "open my \$fh, q[>], q[$filename] or die \$!; for my \$key (sort keys %ENV) { print \$fh qq[\$key:\$ENV{\$key}\n] } close \$fh";
my $ld_path = $Config::Config{ldlibpthname};
my %expected_vars = (
'MSWin32' => [ qw<SystemRoot> ],
my $code = "open my \$fh, q[>], q[$filename] or die \$!; for my \$key (sort keys %ENV) { print \$fh qq[\$key:\$ENV{\$key}\n] } close \$fh";
my $ld_path = $Config::Config{ldlibpthname};
my %expected_vars = (
'MSWin32' => [ qw<SystemRoot> ],