config.h should be included first (if at all).

Fix return of convert_value.

config.h should be included first (if at all).
419b4da3 · Francois Gouget · Alexandre Julliard · b1045496 · 419b4da3
Commit 419b4da3 authored Feb 01, 2002 by Francois Gouget Committed by Alexandre Julliard Feb 01, 2002
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 11 deletions

wine.xs programs/winetest/wine.xs +10 -11

No files found.
--- a/programs/winetest/wine.xs
+++ b/programs/winetest/wine.xs
-/* -*-C-*- --------------------------------------------------------------------
-| Module:      wine.xs                                                         |
-| ---------------------------------------------------------------------------- |
-| Purpose:     Perl gateway to wine API calls                                  |
-|                                                                              |
------------------------------------------------------------------------------*/
+/* -*-C-*- -------------------------------------------------------------
+| Module:      wine.xs                                                 |
+| -------------------------------------------------------------------- |
+| Purpose:     Perl gateway to wine API calls                          |
+|                                                                      |
+----------------------------------------------------------------------*/
+
+#include "config.h"

 #include <stdlib.h>
 #include <string.h>

-#include "config.h"
 #include "windef.h"

 #include <EXTERN.h>
@@ -124,11 +125,9 @@ static SV *convert_value( enum ret_type type, unsigned long val )
        case RET_WORD: return sv_2mortal( newSViv ((int) val & 0xffff ));
        case RET_PTR:  return sv_2mortal( newSViv ((int) val ));
        case RET_STR:  return sv_2mortal( newSVpv ((char *) val, 0 ));
-
-        default:
-            croak ("Bad return type %d", type);
-            break;
    }
+    croak ("Bad return type %d", type);
+    return &PL_sv_undef;
 }