SourceForge.net Logo
March 3, 2009
© GPL
 
ProWikiCenter
Code /
Part8

 
sub DownSize {
  my ($p_val)=@_;
  my $ret=$$p_val;
  $ret /= 16;
  $ret += 0.5;
  $ret =~ s/\..*$//;
  $$p_val=$ret;
}

AndriusKulikauskas March 3, 2009 17:48 CET I'm not able to paste something in the rest.