From af40a57dbcaffdc0aedbb52521c79fba5509fd37 Mon Sep 17 00:00:00 2001
From: ripley <ripley@00db46b3-68df-0310-9c12-caf00c1e9a41>
Date: Fri, 28 Feb 2025 10:41:54 +0000
Subject: [PATCH] clean up

git-svn-id: https://svn.r-project.org/R/trunk@87847 00db46b3-68df-0310-9c12-caf00c1e9a41
---
 src/main/connections.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/main/connections.c b/src/main/connections.c
index 78986f605e..6d8ac72307 100644
--- 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 */