Lines Matching refs:CORE
65 local %CORE::GLOBAL::;
67 ok(!length($@),"remove File::Glob stash *and* CORE::GLOBAL::glob");
71 local *CORE::GLOBAL::glob;
73 'undefined *CORE::GLOBAL::glob{CODE} at run time';
78 local %CORE::GLOBAL::;
80 'undefined *CORE::GLOBAL::glob{CODE} at compile time';
115 local *CORE::GLOBAL::glob = sub { ++$called };
116 eval 'CORE::glob("0")';
117 ok !$called, 'CORE::glob bypasses overrides';
129 my $name = "Make sure the presence of the CORE::GLOBAL::glob typeglob does not affect whether File::Glob::csh_glob is called.";
143 undef *CORE::GLOBAL::glob; # but leave the typeglob itself there
144 ++$CORE::GLOBAL::glob if 0; # "used only once"