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