plugins/perl/libgaimperl.c@b98e72d4089a (annotated)
plugins/perl/libgaimperl.c
Mon, 16 Apr 2007 00:43:53 +0000
- author
- Richard Laager <rlaager@pidgin.im>
- date
- Mon, 16 Apr 2007 00:43:53 +0000
- changeset 13071
- b98e72d4089a
- parent 12418
- 77abb6df8ee6
- permissions
- -rw-r--r--
Commit a proper copy of this binary file. The old one was corrupted,
probably due to missing SVN attributes.
This was retrieved from the following URL, though we may have it in CVS:
http://dev.openwengo.com/trac/openwengo/trac.cgi/browser/vendors/gaim/trunk/doc/oscar/On_Sending_Files_via_OSCAR.odt?rev=4273
|
11862
5d4bc6d54688
[gaim-migrate @ 14153]
Stu Tomlinson <nosnilmot@pidgin.im>
parents:
11120
diff
changeset
|
1 | #include <gmodule.h> |
|
12418
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
2 | void __attribute__ ((constructor)) my_init(void); |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
3 | |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
4 | void __attribute__ ((constructor)) my_init() { |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
5 | /* Very evil hack...puts perl.so's symbols in the global table |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
6 | * but does not create a circular dependancy because g_module_open |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
7 | * will only open the library once. */ |
| 11120 | 8 | g_module_open("perl.so", 0); |
| 9 | } |
