Select Code to Download

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

pattern <a\ \\{bc.d/*> globs to <a {bc.d/GOT ITabcde>
Carp.pm
...
vars.pm
warnings.pm
warnings/register.pm

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

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

Guessing start of match, REx "\\(.)" against "\{bc.d/*"...
Found anchored substr "\" at offset 0...
...
Match rejected by optimizer
Not present...
Match failed

=head1 IO Functions

...

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