comparison src/perl.c @ 1734:dd78a230aa06

[gaim-migrate @ 1744] fun stuff committer: Tailor Script <[e-mail]>

1733:4e51ddc6632f

		GSList *c = connections;
		struct gaim_connection *gc;

		while (c) {
			gc = (struct gaim_connection *)c->data;
			serv_warn(gc, SvPV(ST(1), junk), 0);
			c = c->next;
		}
	}

	XSRETURN(0);

1734:dd78a230aa06

		GSList *c = connections;
		struct gaim_connection *gc;

		while (c) {
			gc = (struct gaim_connection *)c->data;
			serv_warn(gc, SvPV(ST(1), junk), atoi(SvPV(ST(2), junk)));
			c = c->next;
		}
	}

	XSRETURN(0);