gnu/usr.bin/perl/dist/base/t/core-global.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/perl -w

use strict;
use Test::More tests => 1;

BEGIN { *CORE::GLOBAL::require = sub { require $_[0] }; }

{
    # [perl #121196]
    {
        package RequireOverride;
        sub zzz {}
    }
    ok(eval <<'EOS', "handle require overrides")
package RequireOverrideB;
use base 'RequireOverride';
1
EOS
        or diag $@;
}