comparison: libpurple/plugins/perl/perl-common.c
libpurple/plugins/perl/perl-common.c
- branch
- soc.2013.gobjectification
- changeset 34798
- c1cb4cd0543d
- parent 34785
- 99bcdb44c75f
- child 34799
- f029b9598b8e
equal
deleted
inserted
replaced
| 34797:57724af9660d | 34798:c1cb4cd0543d |
|---|---|
| 1 #include "perl-common.h" | |
| 2 | |
| 3 #include "cipher.h" | |
| 1 #include "debug.h" | 4 #include "debug.h" |
| 2 | 5 #include "savedstatuses.h" |
| 3 #include "perl-common.h" | |
| 4 | 6 |
| 5 extern PerlInterpreter *my_perl; | 7 extern PerlInterpreter *my_perl; |
| 6 | 8 |
| 7 static GHashTable *object_stashes = NULL; | 9 static GHashTable *object_stashes = NULL; |
| 8 | 10 |
| 435 stash = "Purple::Log"; | 437 stash = "Purple::Log"; |
| 436 else if (type == PURPLE_TYPE_XFER) | 438 else if (type == PURPLE_TYPE_XFER) |
| 437 stash = "Purple::Xfer"; | 439 stash = "Purple::Xfer"; |
| 438 else if (type == PURPLE_TYPE_XMLNODE) | 440 else if (type == PURPLE_TYPE_XMLNODE) |
| 439 stash = "Purple::XMLNode"; | 441 stash = "Purple::XMLNode"; |
| 440 else if (type == PURPLE_TYPE_USERINFO) | 442 else if (type == PURPLE_TYPE_NOTIFY_USER_INFO) |
| 441 stash = "Purple::NotifyUserInfo"; | 443 stash = "Purple::NotifyUserInfo"; |
| 442 else if (type == PURPLE_TYPE_STORED_IMAGE) | 444 else if (type == PURPLE_TYPE_STORED_IMAGE) |
| 443 stash = "Purple::StoredImage"; | 445 stash = "Purple::StoredImage"; |
| 444 else if (type == PURPLE_TYPE_CERTIFICATEPOOL) | 446 else if (type == PURPLE_TYPE_CERTIFICATE_POOL) |
| 445 stash = "Purple::Certificate::Pool"; | 447 stash = "Purple::Certificate::Pool"; |
| 446 | 448 |
| 447 return sv_2mortal(purple_perl_bless_object(arg, stash)); | 449 return sv_2mortal(purple_perl_bless_object(arg, stash)); |
| 448 } | 450 } |
| 449 | 451 |
