From: Brian Ingerson <ingy@ttul.org>
Date: Fri, 12 Oct 2001 19:32:35 +0000 (-0700)
Subject: Message-ID: <20011012193235.B889@ttul.org>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c253d0e7a61087b3a420083239b09e031b919c0;p=p5sagit%2Fp5-mst-13.2.git

Message-ID: <20011012193235.B889@ttul.org>

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

diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index 1b6aeca..d89bf96 100644
--- a/ext/Data/Dumper/Dumper.xs
+++ b/ext/Data/Dumper/Dumper.xs
@@ -510,7 +510,7 @@ DD_dump(pTHX_ SV *val, char *name, STRLEN namelen, SV *retval, HV *seenhv,
 		    }
 		    sortsv(AvARRAY(keys), 
 			   av_len(keys)+1, 
-			   Perl_sv_cmp_locale);
+			   IN_LOCALE ? Perl_sv_cmp_locale : Perl_sv_cmp);
 		}
 		else {
 		    dSP; ENTER; SAVETMPS; PUSHMARK(sp);