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 (file)
--- 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);