projects / packages / perl-Sys-Hostname-FQDN.git / blame
| Commit | Line | Data |
|---|---|---|
| cf2b3b35 JB |
1 | --- Sys-Hostname-FQDN-0.01/FQDN.xs.orig 2003-06-10 22:35:53.000000000 +0200 |
| 2 | +++ Sys-Hostname-FQDN-0.01/FQDN.xs 2003-06-18 23:38:35.000000000 +0200 | |
| 3 | @@ -58,12 +58,12 @@ | |
| 4 | STRLEN len; | |
| 5 | unsigned char * dq; | |
| 6 | union { | |
| 7 | - struct in_addr * inadr; | |
| 8 | - char * addr; | |
| 9 | + struct in_addr inadr; | |
| 10 | + char addr[4]; | |
| 11 | } naddr; | |
| 12 | PPCODE: | |
| 13 | dq = (unsigned char *)(SvPV(dotquad, len)); | |
| 14 | - inet_aton(dq,naddr.inadr); | |
| 15 | + inet_aton(dq,&naddr.inadr); | |
| 16 | out = sv_newmortal(); | |
| 17 | out = newSVpv(naddr.addr,4); | |
| 18 | ST(0) = out; |