view release on metacpan or  search on metacpan

Config.pm  view on Meta::CPAN

    }

    *{"$callpkg\::Config"} = \%Config if $export_Config;
    return;
}

sub DESTROY { }

if (defined &DynaLoader::boot_DynaLoader) {
    #next 2 lines are special matched in Makefile.PL, update that if changed
    delete local $DynaLoader::{'VERSION'} if $] lt '5.009005';
    delete local $DynaLoader::{'XS_VERSION'} if $] lt '5.009005';
    require XSLoader;
    XSLoader::load(__PACKAGE__, $VERSION);
    tie %Config, 'Config';
} else {
    no warnings 'redefine';
    %Config:: = ();
    undef &{$_} for qw(import DESTROY AUTOLOAD);
    require 'Config_mini.pl';
}

Config_pm.PL  view on Meta::CPAN

#!/usr/bin/perl -*- coding: no-conversion -*-

my $path = $ARGV[0];
die "arg 1 is empty" unless $path;
if($] ge '5.009005') {
    open my $fh, '<', $path or die "Can't open $path: $!";
    my $data;
    {
        binmode($fh);
        local $/ = undef;
        $data = <$fh>;
    }
    close $fh or "Can't close $path: $!";
    my $match = q|    #next 2 lines are special matched in Makefile.PL, update that if changed
    delete local $DynaLoader::{'VERSION'} if $] lt '5.009005';
    delete local $DynaLoader::{'XS_VERSION'} if $] lt '5.009005';
|;
    my $pos = index($data, $match);
    die 'can\'t match in Config_pm.PL' if $pos == -1;
    substr($data, $pos,length($match),'');
    open $fh, '>', $path or die "Can't open $path: $!";
    syswrite($fh, $data) or die "Can't write $path: $!";
    print "patched $path\n";
} else {
    print "did not patch $path\n";
}