Change 18517 by nick@camel-linux on 2003/01/20 08:34:10
Integrate #18405 from maint-5.8 which fixes whitespac
issues in open(FH,"&...")
Affected files ...
... //depot/perl/doio.c#213 integrate
Differences ...
==== //depot/perl/doio.c#213 (text) ====
Index: perl/doio.c
--- perl/doio.c#212~18496~ Thu Jan 16 12:36:23 2003
+++ perl/doio.c Mon Jan 20 00:34:10 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.
