From 419b4da388b89566faa5b0dac853e2b140b39c06 Mon Sep 17 00:00:00 2001 From: Francois Gouget Date: Fri, 1 Feb 2002 19:09:32 +0000 Subject: [PATCH] config.h should be included first (if at all). Fix return of convert_value. --- programs/winetest/wine.xs | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/programs/winetest/wine.xs b/programs/winetest/wine.xs index 414174291b9..b63ac0732ff 100644 --- a/programs/winetest/wine.xs +++ b/programs/winetest/wine.xs @@ -1,14 +1,15 @@ -/* -*-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 #include -#include "config.h" #include "windef.h" #include @@ -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; }