From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 25 May 1999 04:08:50 +0000 (+0000)
Subject: fix glob() bug that resulted in missing symlinks that don't point
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43384a1a9c6320de369fa102476500bf74eac977;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	    }