fix glob() bug that resulted in missing symlinks that don't point

anywhere

p4raw-id: //depot/perl@3467

diff --git a/pp_hot.c b/pp_hot.c
index 7709c53..76e5e53 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1358,7 +1358,7 @@ do_readline(void)
                if (!isALPHA(*tmps) && !isDIGIT(*tmps) &&
                    strchr("$&*(){}[]'\";\\|?<>~`", *tmps))
                        break;
-           if (*tmps && PerlLIO_stat(SvPVX(sv), &PL_statbuf) < 0) {
+           if (*tmps && PerlLIO_lstat(SvPVX(sv), &PL_statbuf) < 0) {
                (void)POPs;             /* Unmatched wildcard?  Chuck it... */
                continue;
            }