[perl #23340] [PATCH] Minor nit in dynext.c

[Jürgen]

# New Ticket Created by  Jürgen Bömmels 
# Please include the string:  [perl #23340]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=23340 >


There is a void * to functionpointer assignment in dynext.c


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/62766/46232/2f75bf/dynext.diff


Index: dynext.c
===================================================================
RCS file: /cvs/public/parrot/dynext.c,v
retrieving revision 1.1
diff -u -r1.1 dynext.c
--- dynext.c	8 Aug 2003 08:15:05 -0000	1.1
+++ dynext.c	16 Aug 2003 12:14:03 -0000
@@ -87,7 +87,7 @@
     string_cstring_free(cpath);
     init_func = Parrot_sprintf_c(interpreter, "Parrot_dynext_%Ss_init", lib);
     cinit_func = string_to_cstring(interpreter, init_func);
-    func = Parrot_dlsym(handle, cinit_func);
+    func = D2FPTR(Parrot_dlsym(handle, cinit_func));
     if (NULL == func) {
         fprintf(stderr, "Failed to find symbol '%s' in native library\n",
                 cinit_func);