From: Chip Salzenberg <chip@atlantic.net>
Date: Fri, 24 Jan 1997 09:25:01 +0000 (+1200)
Subject: When sorting, promote to PVNV only for built-in comparison
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f8d30d514938e706a878aae5fd5b902550604e2;p=p5sagit%2Fp5-mst-13.2.git

When sorting, promote to PVNV only for built-in comparison
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 0d9a8cb..58ab34c 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -612,10 +612,9 @@ PP(pp_sort)
     while (MARK < SP) {	/* This may or may not shift down one here. */
 	/*SUPPRESS 560*/
 	if (*up = *++MARK) {			/* Weed out nulls. */
-	    if (!SvPOK(*up))
+	    SvTEMP_off(*up);
+	    if (!sortcop && !SvPOK(*up))
 		(void)sv_2pv(*up, &na);
-	    else
-		SvTEMP_off(*up);
 	    up++;
 	}
     }