perl-Sys-Hostname-FQDN-segv.patch

   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;