1#!/usr/bin/perl -w
2
3use strict;
4use Test::More tests => 1;
5
6BEGIN { *CORE::GLOBAL::require = sub { require $_[0] }; }
7
8{
9    # [perl #121196]
10    {
11        package RequireOverride;
12        sub zzz {}
13    }
14    ok(eval <<'EOS', "handle require overrides")
15package RequireOverrideB;
16use base 'RequireOverride';
171
18EOS
19        or diag $@;
20}
21