strEQ/strNE of 1 character strings seems better hand inlined,

because it generates smaller object code (as well as being
faster than a true function call)

p4raw-id: //depot/perl@23725

1 files changed, 2 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 03de7e4fa6..0fa7e2413a 100644
--- a/pp.c
+++ b/pp.c
@@ -1,7 +1,7 @@
 /*    pp.c
  *
  *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- *    2000, 2001, 2002, 2003, 2004, by Larry Wall and others
+ *    2000, 2001, 2002, 2003, 2004, 2005, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -4550,7 +4550,7 @@ PP(pp_split)
 		++s;
 	}
     }
-    else if (strEQ("^", rx->precomp)) {
+    else if (rx->precomp[0] == '^' && rx->precomp[1] == '\0') {
 	while (--limit) {
 	    /*SUPPRESS 530*/
 	    for (m = s; m < strend && *m != '\n'; m++) ;