From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 27 Feb 2004 13:13:43 +0000 (+0000)
Subject: Correct thinko in comment.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b5a930ec3bf87d0d126b3ddd1f5cc0587aae7f49;p=p5sagit%2Fp5-mst-13.2.git

Correct thinko in comment.

p4raw-id: //depot/perl@22397
---

diff --git a/op.c b/op.c
index 4273e65..0c688da 100644
--- a/op.c
+++ b/op.c
@@ -678,7 +678,7 @@ Perl_scalarvoid(pTHX_ OP *o)
 	    if (ckWARN(WARN_VOID)) {
 		useless = "a constant";
 		/* don't warn on optimised away booleans, eg 
-		 * use constant F, 5; Foo || print; */
+		 * use constant Foo, 5; Foo || print; */
 		if (cSVOPo->op_private & OPpCONST_SHORTCIRCUIT)
 		    useless = 0;
 		/* the constants 0 and 1 are permitted as they are