comparison: libpurple/plugins/perl/perl-common.c
libpurple/plugins/perl/perl-common.c
- changeset 17208
- 30553e3612f8
- parent 15884
- 4de1981757fc
- child 17471
- fcb31ec08595
- child 18068
- b6554e3c8224
equal
deleted
inserted
replaced
| 17202:32ab8bec7403 | 17208:30553e3612f8 |
|---|---|
| 78 } | 78 } |
| 79 | 79 |
| 80 stash = gv_stashpv(stash_name, 1); | 80 stash = gv_stashpv(stash_name, 1); |
| 81 | 81 |
| 82 hv = newHV(); | 82 hv = newHV(); |
| 83 hv_store(hv, "_purple", 5, create_sv_ptr(object), 0); | 83 hv_store(hv, "_purple", 7, create_sv_ptr(object), 0); |
| 84 | 84 |
| 85 return sv_bless(newRV_noinc((SV *)hv), stash); | 85 return sv_bless(newRV_noinc((SV *)hv), stash); |
| 86 } | 86 } |
| 87 | 87 |
| 88 gboolean | 88 gboolean |
| 92 HV *hv; | 92 HV *hv; |
| 93 | 93 |
| 94 hv = hvref(o); | 94 hv = hvref(o); |
| 95 | 95 |
| 96 if (hv != NULL) { | 96 if (hv != NULL) { |
| 97 sv = hv_fetch(hv, "_purple", 5, 0); | 97 sv = hv_fetch(hv, "_purple", 7, 0); |
| 98 | 98 |
| 99 if (sv != NULL) | 99 if (sv != NULL) |
| 100 return TRUE; | 100 return TRUE; |
| 101 } | 101 } |
| 102 | 102 |
| 116 hv = hvref(o); | 116 hv = hvref(o); |
| 117 | 117 |
| 118 if (hv == NULL) | 118 if (hv == NULL) |
| 119 return NULL; | 119 return NULL; |
| 120 | 120 |
| 121 sv = hv_fetch(hv, "_purple", 5, 0); | 121 sv = hv_fetch(hv, "_purple", 7, 0); |
| 122 | 122 |
| 123 if (sv == NULL) | 123 if (sv == NULL) |
| 124 croak("variable is damaged"); | 124 croak("variable is damaged"); |
| 125 | 125 |
| 126 p = GINT_TO_POINTER(SvIV(*sv)); | 126 p = GINT_TO_POINTER(SvIV(*sv)); |
