Mercurial > pidgin.yaz

comparison libpurple/plugins/perl/common/Log.xs @ 29217:a158ef76d340

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
perl: Fix the package names for some types. Closes #10973. committer: Paul Aurich <paul@darkrain42.org>
author cafoote@yahoo.com
date Thu, 31 Dec 2009 05:32:08 +0000
parents 907f5f41e32a
children e874875a74a7
comparison
equal deleted inserted replaced
29216:0c5995395579 29217:a158ef76d340
4 PROTOTYPES: ENABLE 4 PROTOTYPES: ENABLE
5 5
6 BOOT: 6 BOOT:
7 { 7 {
8 HV *type_stash = gv_stashpv("Purple::Log::Type", 1); 8 HV *type_stash = gv_stashpv("Purple::Log::Type", 1);
9 HV *flags_stash = gv_stashpv("Purple::Log:ReadFlags::", 1); 9 HV *flags_stash = gv_stashpv("Purple::Log::ReadFlags", 1);
10 10
11 static const constiv *civ, type_const_iv[] = { 11 static const constiv *civ, type_const_iv[] = {
12 #define const_iv(name) {#name, (IV)PURPLE_LOG_##name} 12 #define const_iv(name) {#name, (IV)PURPLE_LOG_##name}
13 const_iv(IM), 13 const_iv(IM),
14 const_iv(CHAT), 14 const_iv(CHAT),