diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-13 13:35:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-13 13:35:47 +0000 |
| commit | 503ec68fa54cd074101e4004bdfe3124adc2a0df (patch) | |
| tree | 2403faa5bdf292cdc2c91012f1d3dad42837bd06 /ext/Data | |
| parent | 1b6921cb418a43a6118f8bbad3bcf281bcd55c17 (diff) | |
| download | perl-503ec68fa54cd074101e4004bdfe3124adc2a0df.tar.gz | |
"preprocessing directive not recognized within macro arg"
p4raw-id: //depot/perl@13671
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.xs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs index 4e26387997..e35cfeb588 100644 --- a/ext/Data/Dumper/Dumper.xs +++ b/ext/Data/Dumper/Dumper.xs @@ -508,12 +508,14 @@ DD_dump(pTHX_ SV *val, char *name, STRLEN namelen, SV *retval, HV *seenhv, SvREFCNT_inc(sv); av_push(keys, sv); } +#ifdef USE_LOCALE_NUMERIC sortsv(AvARRAY(keys), av_len(keys)+1, -#ifdef USE_LOCALE_NUMERIC IN_LOCALE ? Perl_sv_cmp_locale : Perl_sv_cmp); #else - Perl_sv_cmp); + sortsv(AvARRAY(keys), + av_len(keys)+1, + Perl_sv_cmp); #endif } else { |