Mercurial > pidgin
changeset 17129:c4237e963099
Update some perl magic numbers, like in the tcl code. This doesn't actually do
anything since the string should be unique either way but should be more
correct.
| author | Etan Reisner <pidgin@unreliablesource.net> |
|---|---|
| date | Sat, 19 May 2007 02:21:31 +0000 |
| parents | 3e463ddf18f7 |
| children | 8504e859c782 |
| files | libpurple/plugins/perl/perl-common.c |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/libpurple/plugins/perl/perl-common.c Sat May 19 01:00:35 2007 +0000 +++ b/libpurple/plugins/perl/perl-common.c Sat May 19 02:21:31 2007 +0000 @@ -80,7 +80,7 @@ stash = gv_stashpv(stash_name, 1); hv = newHV(); - hv_store(hv, "_purple", 5, create_sv_ptr(object), 0); + hv_store(hv, "_purple", 7, create_sv_ptr(object), 0); return sv_bless(newRV_noinc((SV *)hv), stash); } @@ -94,7 +94,7 @@ hv = hvref(o); if (hv != NULL) { - sv = hv_fetch(hv, "_purple", 5, 0); + sv = hv_fetch(hv, "_purple", 7, 0); if (sv != NULL) return TRUE; @@ -118,7 +118,7 @@ if (hv == NULL) return NULL; - sv = hv_fetch(hv, "_purple", 5, 0); + sv = hv_fetch(hv, "_purple", 7, 0); if (sv == NULL) croak("variable is damaged");