view release on metacpan or  search on metacpan

myConfig  view on Meta::CPAN

# -*- cperl -*-
require 5.00404;
my $path = "$Config{'archlibexp'}/CORE/perl.h";
die "Cannot find '$path' have you installed $^X?\n" unless (-r $path);
print "$^X is installed in $Config{'archlibexp'} okay\n";
use Config;
use Cwd;
warn "No VERSION" unless (defined $VERSION);

my %define = ();

$inc    = "";
$xlib   = "";
$define = '';
$gccopt = "";
@macro = ( macro => {} );


if (defined $Config{'gccversion'})
{
    $ver = $Config{'gccversion'};
    if( $ver ge "2.8" )
    {
        # retain author's favourite warnings if using gcc
        $gccopt .= " -ggdb -Wall -Wno-implicit-int -Wno-comment -Wno-unused -D__USE_FIXED_PROTOTYPES__";
        eval
        {
            if ((getpwuid($<))[6] =~ /Nick\s+Ing-Simmons/)
            {
                # This is the author - catch as many bugs as possible
                $gccopt .= "  -MMD -Werror";
                @macro = ( macro => { INSTALLDIRS => 'perl' });
            }
        };
        
    }
    # else{ $define .= ' -g ' }

}

if ($] >= 5.005)
{
    # Add PPM support stuff
    push(@macro,
        ABSTRACT => 'Tk::tkTable - a Spreadsheet/Table Widget',
        AUTHOR   => 'jcerney@home.com (John Cerney)'
    );
    my $arch = ($^O eq 'MSWin32') ? $ENV{'PROCESSOR_ARCHITECTURE'} : $Config{'archname'};
    push(@ARGV,"BINARY_LOCATION=$arch/Tk$VERSION-PPM.tar.gz");
    warn "PPM for perl$]\n";
}
else
{
    warn "No PPM for perl$]\n";
}

$macro[1]->{WINARCH} = $win_arch;

#
# Convert perls Config info into -DXXXX for Tk
#

$define{'USE_PROTOTYPE'} = 1     if ($Config{'prototype'});
$define{'HAVE_UNISTD_H'} = 1     if ($Config{'i_unistd'});
$define{'HAVE_SYS_SELECT_H'} = 1 if ($Config{'i_sysselct'});
$define{'NO_STDLIB_H'} = 1       unless ($Config{'i_stdlib'});
$define{'HAVE_SYS_TIME_H'} = 1   if ($Config{'i_systime'});
$define{'HAVE_LIMITS_H'} = 1     if ($Config{'i_limits'});
$define{'HAS_STDARG'} = 1        if ($Config{'i_stdarg'});
$define{'USE_BCOPY'} = 1         if (!$Config{'d_memmove'} && $Config{'d_bcopy'});

if (defined $Config{'selecttype'})
{
    my $type = $Config{'selecttype'};
    $type =~ s/\s*\*\s*$//;
    $define{'SELECT_MASK'} = $type;
}

if (!$Config{'i_unistd'} && defined $Config{'lseektype'})
{
    my $type = $Config{'lseektype'};
    $type =~ s/\s*\*\s*$//;
    $define{'LSEEK_TYPE'} =$type;
}

my $voidflags = $Config{'voidflags'};
my $voidused  = $Config{'defvoidused'}+0;