$a=q|a\ \\\{bc.d/*|;print "pattern <", $a, "> globs to <", (glob $a), ">\n";
print "$_\n" for sort keys %INC;

##</code><code>##

pattern <a\ \\{bc.d/*> globs to <a {bc.d/GOT ITabcde>
Carp.pm
Exporter.pm
File/Glob.pm
Text/ParseWords.pm
XSLoader.pm
strict.pm
vars.pm
warnings.pm
warnings/register.pm

##</code><code>##

$a=q|a\{bc.d/*|;print "pattern <", $a, "> globs to <", (glob $a), ">\n";
print "$_\n" for sort keys %INC;

##</code><code>##

pattern <a\{bc.d/*> globs to <a{bc.d/GOT ITabcde>
File/Glob.pm
XSLoader.pm
strict.pm

##</code><code>##

Guessing start of match, REx "\\(.)" against "\{bc.d/*"...
Found anchored substr "\" at offset 0...
Guessed: match at offset 0
Matching REx "\\(.)" against "\{bc.d/*"
  Setting an EVAL scope, savestack=56
   0 <> <\{bc.d/*>        |  1:  EXACT <\\>
   1 <\> <{bc.d/*>        |  3:  OPEN1
   1 <\> <{bc.d/*>        |  5:  SANY
   2 <\{> <bc.d/*>        |  6:  CLOSE1
   2 <\{> <bc.d/*>        |  8:  END
Match successful!
Guessing start of match, REx "\\(.)" against "bc.d/*"...
Did not find anchored substr "\"...
Match rejected by optimizer
Not present...
Match failed

##</code><code>##

=head1 IO Functions

=for apidoc start_glob

Function called by C<do_readline> to spawn a glob (or do the glob inside
perl on VMS). This code used to be inline, but now perl uses C<File::Glob>
this glob starter is only used by miniperl during the build process.
Moving it away shrinks pp_hot.c; shrinking pp_hot.c helps speed perl up.

=cut
*/

PerlIO *
Perl_start_glob (pTHX_ SV *tmpglob, IO *io)