comparison: plugins/perl/perl-common.c
plugins/perl/perl-common.c
- changeset 11170
- d8941580d87f
- parent 8735
- 01248ea222d3
- child 11290
- 136722ebf145
equal
deleted
inserted
replaced
| 11169:96612b706d45 | 11170:d8941580d87f |
|---|---|
| 4 #include "perl-common.h" | 4 #include "perl-common.h" |
| 5 | 5 |
| 6 extern PerlInterpreter *my_perl; | 6 extern PerlInterpreter *my_perl; |
| 7 | 7 |
| 8 static GHashTable *object_stashes = NULL; | 8 static GHashTable *object_stashes = NULL; |
| 9 | |
| 10 void gaim_perl_normalize_script_name(char *name) | |
| 11 { | |
| 12 char *c; | |
| 13 | |
| 14 c = strrchr(name, '.'); | |
| 15 | |
| 16 if (c != NULL) | |
| 17 *c = '\0'; | |
| 18 | |
| 19 for (c = name; *c != '\0'; c++) | |
| 20 { | |
| 21 if (*c != '_' && !g_ascii_isalnum(*c)) | |
| 22 *c = '_'; | |
| 23 } | |
| 24 } | |
| 25 | |
| 9 | 26 |
| 10 static int | 27 static int |
| 11 magic_free_object(pTHX_ SV *sv, MAGIC *mg) | 28 magic_free_object(pTHX_ SV *sv, MAGIC *mg) |
| 12 { | 29 { |
| 13 sv_setiv(sv, 0); | 30 sv_setiv(sv, 0); |
