One Hat Cyber Team

Your IP: 216.73.216.67
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/Devel-CheckLib-1.16-0/t/

View File Name : multi-word-compiler.t

# $Id: multi-word-compiler.t,v 1.3 2008/02/07 14:16:39 drhyde Exp $

use strict;
BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }

use Test::More;

plan tests => 1;

use Config;
BEGIN {
    eval 'use Mock::Config;';
    warnings->unimport('redefine') if $] >= 5.006;
    unless(defined($ActivePerl::VERSION) && $Config{cc} =~ /\bgcc\b/) {
        if (!$Mock::Config::VERSION) {
            plan skip_all => "XSConfig is readonly"
                if $Config{usecperl} or exists &Config::KEYS;
            *Config::STORE = sub { $_[0]->{$_[1]} = $_[2] }
        }
    }
}

my $fake_cc = qq{"$^X" $Config{cc}};
if ($Mock::Config::VERSION) {
    Mock::Config->import(cc => $fake_cc);
}
elsif (defined($ActivePerl::VERSION) && $Config{cc} =~ /\bgcc\b/) {
    my $obj = tied %Config::Config;
    $obj->{cc} = $fake_cc;
}
else {
    eval { $Config{cc} = $fake_cc; }
}

SKIP: {
    skip "Couldn't update %Config", 1 if $@ =~ /%Config::Config is read-only/;
    eval "use Devel::CheckLib";
    is $@, "", "Good multi-word compiler is OK";
}