@@ -1,5 +1,8 @@
 Revision history for Perl extension Sys::Hostname::FQDN
 
+0.12 Mon Nov 24 08:29:23 PST 2014
+	squashed memory leak - thanks to Jiro Nishiquchi
+
 0.11  Mon Nov 15 10:38:56 PST 2010
 	Added "Artistic" licensing
 

@@ -7,7 +7,7 @@ use Carp;
 
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = do { my @r = (q$Revision: 0.11 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 0.12 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 require Exporter;
 require DynaLoader;

@@ -70,8 +70,7 @@ usually_short()
 	  ST(0) = &PL_sv_undef;
 	}
 	else {
-	  out = sv_newmortal();
-	  out = newSVpv(local_name,0);
+	  out = sv_2mortal(newSVpv(local_name,0));
 	  ST(0) = out;
 	}
 	XSRETURN(1);
@@ -88,8 +87,7 @@ inet_ntoa(netaddr)
 	} naddr;
     PPCODE:
 	naddr.addr = (SvPV(netaddr, len));
-	out = sv_newmortal();
-	out = newSVpv(inet_ntoa(*naddr.inadr),0);
+	out = sv_2mortal(newSVpv(inet_ntoa(*naddr.inadr),0));
 	ST(0) = out;
 	XSRETURN(1);
 
@@ -108,7 +106,6 @@ inet_aton(dotquad)
     PPCODE:
 	dq = (unsigned char *)(SvPV(dotquad, len));
 	inet_aton((char *)dq,&myaddr);
-	out = sv_newmortal();
-	out = newSVpv((char *)&myaddr.s_addr,4);
+	out = sv_2mortal(newSVpv((char *)&myaddr.s_addr,4));
 	ST(0) = out;
 	XSRETURN(1);

@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Sys-Hostname-FQDN
-version:             0.11
+version:             0.12
 abstract:            ~
 license:             ~
 author:              ~