From 9f8d30d514938e706a878aae5fd5b902550604e2 Mon Sep 17 00:00:00 2001
From: Chip Salzenberg <chip@atlantic.net>
Date: Fri, 24 Jan 1997 21:25:01 +1200
Subject: When sorting, promote to PVNV only for built-in comparison

---
 pp_ctl.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/pp_ctl.c b/pp_ctl.c
index 0d9a8cb309..58ab34ccda 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++;
 	}
     }
-- 
cgit v1.2.1