This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence a compilation warning
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 6 Jan 2005 15:49:39 +0000 (15:49 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 6 Jan 2005 15:49:39 +0000 (15:49 +0000)
p4raw-id: //depot/perl@23761

pp_sort.c

index 0cb4795..69814ae 100644 (file)
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -365,7 +365,7 @@ S_mergesortsv(pTHX_ gptr *base, size_t nmemb, SVCOMPARE_t cmp, U32 flags)
     gptr small[SMALLSORT];
     gptr *which[3];
     off_runs stack[60], *stackp;
-    SVCOMPARE_t savecmp;
+    SVCOMPARE_t savecmp = 0;
 
     if (nmemb <= 1) return;                    /* sorted trivially */