From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 13 Dec 2001 13:35:47 +0000 (+0000)
Subject: "preprocessing directive not recognized within macro arg"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=503ec68fa54cd074101e4004bdfe3124adc2a0df;p=p5sagit%2Fp5-mst-13.2.git

"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
--- 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 {