clean up

git-svn-id: https://svn.r-project.org/R/trunk@87847 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Feb 28, 2025 · af40a57 · af40a57
1 parent 6add35c
commit af40a57
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/main/connections.c b/src/main/connections.c
@@ -1591,8 +1591,8 @@ attribute_hidden SEXP do_fifo(SEXP call, SEXP op, SEXP args, SEXP env)
     if(!isString(sopen) || LENGTH(sopen) != 1)
 	error(_("invalid '%s' argument"), "open");
     block = asRbool(CADDR(args), call);
-    if(block == NA_LOGICAL)
-	error(_("invalid '%s' argument"), "block");
+//    if(block == NA_LOGICAL)
+//	error(_("invalid '%s' argument"), "block");
     enc = CADDDR(args);
     if(!isString(enc) || LENGTH(enc) != 1 ||
        strlen(CHAR(STRING_ELT(enc, 0))) > 100) /* ASCII */