diff options
| author | Timo Sirainen <cras@irssi.org> | 2000-10-18 01:32:14 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-10-18 01:32:14 +0000 |
| commit | ac6bfeba1f83a205e1516eb6166ed2d79c9b6a54 (patch) | |
| tree | df64fe7934534b30675ba9340ebc15a85c00b098 /src/perl/perl-common.h | |
| parent | e23760fb259501bcd1f42cdb7088c5edbea84688 (diff) | |
| download | irssi-ac6bfeba1f83a205e1516eb6166ed2d79c9b6a54.zip | |
Signal fixes
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@767 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.h')
| -rw-r--r-- | src/perl/perl-common.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h index c5eb9748..9684c7fd 100644 --- a/src/perl/perl-common.h +++ b/src/perl/perl-common.h @@ -4,6 +4,9 @@ #define new_pv(a) \ (newSVpv((a) == NULL ? "" : (a), (a) == NULL ? 0 : strlen(a))) +#define new_bless(obj, stash) \ + sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(obj))), stash) + extern GHashTable *perl_stashes; HV *irssi_get_stash_item(int type, int chat_type); |