fix memory leaks and uninitialized memory accesses found by Purify

p4raw-id: //depot/perl@1143

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 9d841a195c..ff8384c331 100644
--- a/doio.c
+++ b/doio.c
@@ -258,7 +258,7 @@ do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawpe
 	    else
 		fp = PerlIO_open(name,mode);
 	}
-	else if (name[len-1] == '|') {
+	else if (len > 1 && name[len-1] == '|') {
 	    name[--len] = '\0';
 	    while (len && isSPACE(name[len-1]))
 		name[--len] = '\0';