[ID 20010421.010] Perl 5.6.1 on Unixware 7

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

diff --git a/doio.c b/doio.c
index fee610d..f65f286 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -556,8 +556,8 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
            Pid_t pid;
            SV *sv;
            if (PerlLIO_dup2(fd, savefd) < 0) {
-              (void)PerlIO_close(fp);
-              goto say_false;
+               (void)PerlIO_close(fp);
+               goto say_false;
            }
 #ifdef VMS
            if (savefd != PerlIO_fileno(PerlIO_stdin())) {