diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-06-26 17:01:42 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-06-26 17:01:42 +0000 |
| commit | 740f041c266c92d905754bbcb342b1e69d0770fe (patch) | |
| tree | 0ce03b703e071d2b298df426f519235080d42ed5 /src/perl/perl-common.h | |
| parent | d0de9fe229ab0d8ae1f61f7460fdf87d71f7344d (diff) | |
| download | irssi-740f041c266c92d905754bbcb342b1e69d0770fe.zip | |
Perl blessing fixes.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1566 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, 0 insertions, 3 deletions
diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h index 5489a77d..26410ccd 100644 --- a/src/perl/perl-common.h +++ b/src/perl/perl-common.h @@ -5,9 +5,6 @@ #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) - #define is_hvref(o) \ ((o) && SvROK(o) && SvRV(o) && (SvTYPE(SvRV(o)) == SVt_PVHV)) |