From: Abhijit Menon-Sen <ams@wiw.org>
Date: Thu, 8 Nov 2001 11:22:12 +0000 (+0000)
Subject: open(FH, $file) should strip leading and trailing whitespace.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb649f8332a68e044311e1ac390a40e67a4d5e90;p=p5sagit%2Fp5-mst-13.2.git

open(FH, $file) should strip leading and trailing whitespace.

p4raw-id: //depot/perl@12896
---

diff --git a/doio.c b/doio.c
index 47a5af6..98ff640 100644
--- a/doio.c
+++ b/doio.c
@@ -176,9 +176,13 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 	type = savepvn(name, len);
 	tend = type+len;
 	SAVEFREEPV(type);
-	/* Loose trailing white space */
-	while (tend > type && isSPACE(tend[-1]))
-	    *tend-- = '\0';
+
+        /* Lose leading and trailing white space */
+        /*SUPPRESS 530*/
+        for (; isSPACE(*type); type++) ;
+        while (tend > type && isSPACE(tend[-1]))
+	    *--tend = '\0';
+
 	if (num_svs) {
 	    /* New style explict name, type is just mode and discipline/layer info */
 	    STRLEN l = 0;
@@ -186,8 +190,6 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 	    len = (I32)l;
 	    name = savepvn(name, len);
 	    SAVEFREEPV(name);
-	    /*SUPPRESS 530*/
-	    for (; isSPACE(*type); type++) ;
 	}
 	else {
 	    name = type;