zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-11 04:43:34 +02:00
Code Issues Projects Releases Packages Wiki Activity

perl changes - values() method doesn't exist anymore, instead of

Browse source 
$server->values()->{...} you now use directly $server->{...}


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@972 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-12-06 05:03:11 +00:00 • committed by cras
commit e95f309b50
22 changed files with 412 additions and 326 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/perl/common/Query.xs
View file

@ -8,8 +8,7 @@ PPCODE:
for (tmp = queries; tmp != NULL; tmp = tmp->next) {
QUERY_REC *rec = tmp->data;
XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(rec))),
irssi_get_stash(rec))));
XPUSHs(sv_2mortal(irssi_bless(rec)));
}
#*******************************
@ -25,8 +24,7 @@ PPCODE:
for (tmp = server->queries; tmp != NULL; tmp = tmp->next) {
QUERY_REC *rec = tmp->data;
XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(rec))),
irssi_get_stash(rec))));
XPUSHs(sv_2mortal(irssi_bless(rec)));
}
Irssi::Query
@ -46,14 +44,10 @@ MODULE = Irssi PACKAGE = Irssi::Query PREFIX = query_
#*******************************
void
values(query)
init(query)
Irssi::Query query
PREINIT:
HV *hv;
PPCODE:
hv = newHV();
perl_query_fill_hash(hv, query);
XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));
CODE:
perl_query_fill_hash(hvref(ST(0)), query);
void
query_destroy(query)