--- deliantra/server/server/cfperl.xs	2007/10/16 04:09:31	1.259
+++ deliantra/server/server/cfperl.xs	2007/10/16 05:00:38	1.260
@@ -1656,11 +1656,14 @@
 {
 #if __GLIBC__
 	struct mallinfo mai = mallinfo ();
-        EXTEND (SP, 7*2);
+        EXTEND (SP, 10*2);
         PUSHs (sv_2mortal (newSVpv ("arena"   , 0))); PUSHs (sv_2mortal (newSViv (mai.arena)));
         PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks)));
+        PUSHs (sv_2mortal (newSVpv ("smblks"  , 0))); PUSHs (sv_2mortal (newSViv (mai.smblks)));
         PUSHs (sv_2mortal (newSVpv ("hblks"   , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks)));
         PUSHs (sv_2mortal (newSVpv ("hblkhd"  , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd)));
+        PUSHs (sv_2mortal (newSVpv ("usmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.usmblks)));
+        PUSHs (sv_2mortal (newSVpv ("fsmblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.fsmblks)));
         PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks)));
         PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks)));
         PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost)));