view release on metacpan or  search on metacpan

GTop.xs  view on Meta::CPAN

    RETVAL->host = NULL;
    RETVAL->port = NULL;

#if 0 && defined(USE_ITHREADS)
    Perl_warn(aTHX_ "perl=0x%lx my_gtop_new() called",
              (unsigned long)my_perl);
#endif
    
    if (host && port) {
	RETVAL->do_close = 1;
	my_setenv("LIBGTOP_HOST", host);
	my_setenv("LIBGTOP_PORT", port);
        New(0, RETVAL->host, strlen(host)+1, char);
        New(0, RETVAL->port, strlen(port)+1, char);
        Copy(host, RETVAL->host, strlen(host)+1, char);
        Copy(port, RETVAL->port, strlen(port)+1, char);
	glibtop_global_server->method = GLIBTOP_METHOD_INET;
	glibtop_init_r(&glibtop_global_server, 0, 0);
    }
    else {
	glibtop_init();
    }