From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 9 Oct 2007 21:55:56 +0000 (+0000)
Subject: As we know the length, replace strEQ with memEQs in S_doopen_pm().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce9440c8a632181326295941c376dfe0ad85b93f;p=p5sagit%2Fp5-mst-13.2.git

As we know the length, replace strEQ with memEQs in S_doopen_pm().

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 0968dd4..39f18b2 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3024,7 +3024,7 @@ S_doopen_pm(pTHX_ const char *name, const STRLEN namelen)
 {
     PerlIO *fp;
 
-    if (namelen > 3 && strEQ(name + namelen - 3, ".pm")) {
+    if (namelen > 3 && memEQs(name + namelen - 3, 3, ".pm")) {
 	SV *const pmcsv = newSV(namelen + 2);
 	char *const pmc = SvPVX(pmcsv);
 	Stat_t pmcstat;