This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix VC6 compilation of pp_sort.c
authorSteve Hay <steve.m.hay@googlemail.com>
Mon, 7 Nov 2011 21:10:44 +0000 (21:10 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Mon, 7 Nov 2011 21:10:44 +0000 (21:10 +0000)
Fixes copy & paste errors introduced by f3dab52a51.

pp_sort.c

index d527d1e..da014e8 100644 (file)
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1881,7 +1881,7 @@ S_sv_ncmp(pTHX_ SV *const a, SV *const b)
     PERL_ARGS_ASSERT_SV_NCMP;
 
 #if defined(NAN_COMPARE_BROKEN) && defined(Perl_isnan)
-    if (Perl_isnan(right) || Perl_isnan(left)) {
+    if (Perl_isnan(nv1) || Perl_isnan(nv2)) {
 #else
     if (nv1 != nv1 || nv2 != nv2) {
 #endif