"preprocessing directive not recognized within macro arg"

p4raw-id: //depot/perl@13671

diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index 4e26387..e35cfeb 100644 (file)
--- 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 {