From 790090df87a94d63cdbf866bce162581c29c2abf Mon Sep 17 00:00:00 2001 From: Hugo van der Sanden Date: Thu, 19 Oct 2000 00:25:58 +0100 Subject: Re: [ID 20001018.008] flip-flop bug when there's no Message-Id: <200010182225.XAA20330@crypt.compulink.co.uk> p4raw-id: //depot/perl@7365 --- pp_hot.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index 6f582c097b..9b0573bb03 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -1412,7 +1412,8 @@ Perl_do_readline(pTHX) } } if (!fp) { - if (ckWARN2(WARN_GLOB,WARN_CLOSED) && io && !(IoFLAGS(io) & IOf_START)) { + if (ckWARN2(WARN_GLOB, WARN_CLOSED) + && (!io || !(IoFLAGS(io) & IOf_START))) { if (type == OP_GLOB) Perl_warner(aTHX_ WARN_GLOB, "glob failed (can't start child: %s)", -- cgit v1.2.1