Change 18405 by jhi@lyta on 2003/01/03 03:06:40
Subject: [PATCH] Re: 5.8.0 dup strangety
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Tue, 31 Dec 2002 10:56:42 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/maint-5.8/perl/doio.c#4 edit
Differences ...
==== //depot/maint-5.8/perl/doio.c#4 (text) ====
Index: perl/doio.c
--- perl/doio.c#3~18131~ Sat Nov 9 13:28:07 2002
+++ perl/doio.c Thu Jan 2 19:06:40 2003
@@ -323,13 +323,13 @@
if (num_svs > 1) {
Perl_croak(aTHX_ "More than one argument to '%c&'
open",IoTYPE(io));
}
+ /*SUPPRESS 530*/
+ for (; isSPACE(*type); type++) ;
if (num_svs && (SvIOK(*svp) || (SvPOK(*svp) &&
looks_like_number(*svp)))) {
fd = SvUV(*svp);
num_svs = 0;
}
else if (isDIGIT(*type)) {
- /*SUPPRESS 530*/
- for (; isSPACE(*type); type++) ;
fd = atoi(type);
}
else {
@@ -339,8 +339,6 @@
}
else {
GV *thatgv;
- /*SUPPRESS 530*/
- for (; isSPACE(*type); type++) ;
thatgv = gv_fetchpv(type,FALSE,SVt_PVIO);
thatio = GvIO(thatgv);
}
End of Patch.
