t/op/override.t

7     require Config; # load these before we mess with *CORE::GLOBAL::require
14 # This file tries to test builtin override using CORE::GLOBAL
23 BEGIN { *CORE::GLOBAL::time = sub () { $t; } }
31 BEGIN { *CORE::GLOBAL::require = sub { $r = shift; 1; } }
56     local *CORE::GLOBAL::require = sub { push @r, shift; 1; };
67 # localizing *CORE::GLOBAL::foo should revert to finding CORE::foo
69     local(*CORE::GLOBAL::require);
80 BEGIN { *CORE::GLOBAL::readline = sub (;*) { ++$r }; }
102 BEGIN { *CORE::GLOBAL::readpipe = sub ($) { "$_[0] " . --$r }; }
120     BEGIN { *OverridenWarn::warn = sub { CORE::warn "@_ overriden"; }; }
136         local *CORE::GLOBAL::require = sub {
137             CORE::require($_[0]);
151 is runperl(prog => 'sub CORE::GLOBAL::do; do file; print qq-ok\n-'),
153   'no crash with CORE::GLOBAL::do stub';
154 is runperl(prog => 'sub CORE::GLOBAL::glob; glob; print qq-ok\n-'),
156   'no crash with CORE::GLOBAL::glob stub';
157 is runperl(prog => 'sub CORE::GLOBAL::require; require re; print qq-o\n-'),
159   'no crash with CORE::GLOBAL::require stub';
162                     .'BEGIN { *{q|CORE::GLOBAL::readpipe|} = \&{q|foo|};1}'
166     '`` does not ignore &CORE::GLOBAL::readpipe aliased to a constant';
168                     .'BEGIN { *{q|CORE::GLOBAL::readline|} = \&{q|foo|};1}'
172     '<> does not ignore &CORE::GLOBAL::readline aliased to a constant';
175                   .'BEGIN { *{q|CORE::GLOBAL::time|} = \&{q|t|};1}'