plugins/perl/perl.c

changeset 12890
7152afb4df01
parent 12882
44dfc6467081
child 12984
efb5a11f13b2
equal deleted inserted replaced
12889:9f36adc089fa 12890:7152afb4df01
355 gps->prefs_sub = g_strdup_printf("%s::%s", 355 gps->prefs_sub = g_strdup_printf("%s::%s",
356 gps->package, 356 gps->package,
357 SvPV(*key, len)); 357 SvPV(*key, len));
358 info->prefs_info = &ui_info; 358 info->prefs_info = &ui_info;
359 } 359 }
360 360
361 if ((key = hv_fetch(plugin_info, "gtk_prefs_info", 361 if ((key = hv_fetch(plugin_info, "gtk_prefs_info",
362 strlen("gtk_prefs_info"), 0))) { 362 strlen("gtk_prefs_info"), 0))) {
363 /* key now is the name of the Perl sub that 363 /* key now is the name of the Perl sub that
364 * will create a frame for us */ 364 * will create a frame for us */
365 gps->gtk_prefs_sub = g_strdup_printf("%s::%s", 365 gps->gtk_prefs_sub = g_strdup_printf("%s::%s",

mercurial