comparison: libpurple/plugins/perl/perl.c
libpurple/plugins/perl/perl.c
- changeset 27664
- f237942129f0
- parent 27584
- 134e07aa6f64
- child 28642
- b23df5d1387e
equal
deleted
inserted
replaced
| 27663:d53c78e08948 | 27664:f237942129f0 |
|---|---|
| 144 while (search_paths != NULL) { | 144 while (search_paths != NULL) { |
| 145 gchar *uselib; | 145 gchar *uselib; |
| 146 const gchar *search_path = search_paths->data; | 146 const gchar *search_path = search_paths->data; |
| 147 search_paths = g_list_next(search_paths); | 147 search_paths = g_list_next(search_paths); |
| 148 | 148 |
| 149 uselib = g_strdup_printf("unshift @INC, \"%s%cperl\";", | 149 uselib = g_strdup_printf("unshift @INC, q(%s%sperl);", |
| 150 search_path, G_DIR_SEPARATOR); | 150 search_path, G_DIR_SEPARATOR_S); |
| 151 eval_pv(uselib, TRUE); | 151 eval_pv(uselib, TRUE); |
| 152 g_free(uselib); | 152 g_free(uselib); |
| 153 } | 153 } |
| 154 } | 154 } |
| 155 | 155 |
