cleanup char* casts and replace one useless SvPV with SvPV_nolen

This commit is contained in:
Ailin Nemui 2014-06-25 03:17:03 +02:00
commit f58a461c54
4 changed files with 11 additions and 12 deletions

View file

@ -81,7 +81,7 @@ SV *perl_func_sv_inc(SV *func, const char *package)
if (SvPOK(func)) {
/* prefix with package name */
name = g_strdup_printf("%s::%s", package,
(char *) SvPV_nolen(func));
SvPV_nolen(func));
func = new_pv(name);
g_free(name);
} else {