diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2009-03-17 23:49:45 +0000 |
|---|---|---|
| committer | Ben Morrow <ben@morrow.me.uk> | 2009-03-25 21:14:10 +0000 |
| commit | 500ff13f1832355fdcc9d1bd6d9c3f8ba9d02398 (patch) | |
| tree | fc1dacb2371adbcfff861412273b676fd42e07b6 | |
| parent | 52f7f5abcb0b97e194579f0fe825799e03a82966 (diff) | |
| download | perl-500ff13f1832355fdcc9d1bd6d9c3f8ba9d02398.tar.gz | |
-l was missing an SPAGAIN.
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3240,11 +3240,13 @@ PP(pp_ftrowned) PP(pp_ftlink) { dVAR; - I32 result; dSP; + I32 result; tryAMAGICftest('l'); result = my_lstat(); + SPAGAIN; + if (result < 0) RETPUSHUNDEF; if (S_ISLNK(PL_statcache.st_mode)) |