diff options
| author | Brian Ingerson <ingy@ttul.org> | 2001-10-12 12:32:35 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-13 02:04:44 +0000 |
| commit | 3c253d0e7a61087b3a420083239b09e031b919c0 (patch) | |
| tree | 0c1a6c05887729ee31d0c05edcdf6a7b27631e76 /ext/Data | |
| parent | 8a114ac8682b1e8fcbe0918881849e92efee867e (diff) | |
| download | perl-3c253d0e7a61087b3a420083239b09e031b919c0.tar.gz | |
Message-ID: <20011012193235.B889@ttul.org>
p4raw-id: //depot/perl@12422
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs index 1b6aeca17a..d89bf96eed 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); |