From: Ben Morrow <ben@morrow.me.uk>
Date: Tue, 17 Mar 2009 23:49:45 +0000 (+0000)
Subject: -l was missing an SPAGAIN.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=500ff13f1832355fdcc9d1bd6d9c3f8ba9d02398;p=p5sagit%2Fp5-mst-13.2.git

-l was missing an SPAGAIN.
---

diff --git a/pp_sys.c b/pp_sys.c
index 1a8185a..15a368f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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))