[inseparable changes from match from perl-5.003_93 to perl-5.003_94]

[p5sagit/p5-mst-13.2.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index 6cbca14..f99bf29 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1520,6 +1520,7 @@ PP(pp_flock)
     else
        fp = Nullfp;
     if (fp) {
+       (void)PerlIO_flush(fp);
        value = (I32)(FLOCK(PerlIO_fileno(fp), argtype) >= 0);
     }
     else