Merge pull request #20 from christiam/fix-mem-collection-unit

Fix units in memory collection

bin/driver.pl

@@ -310,8 +310,8 @@ sub configure_unsetting_environment
 sub collect_mem_info
 {
     # The percentage memory computed in this function is equivalent to the command:
-    # free -b | awk 'BEGIN{t=a=0} /^Mem/ {t=$2;a=$7;} END{print (100-((a*100)/(t*1.)))}'
-    open(my $free_output, '-|', 'free -b');
+    # free -k | awk 'BEGIN{t=a=0} /^Mem/ {t=$2;a=$7;} END{print (100-((a*100)/(t*1.)))}'
+    open(my $free_output, '-|', 'free -k');
     my $total_memory = 0;
     my $free_memory = 0;
     my $used_memory = 0;

version.pl

@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-our $VERSION = '1.2.0';
+our $VERSION = '1.2.1';
 # Must be a single integer, stored in https://www.sqlite.org/pragma.html#pragma_user_version
-our $DB_VERSION = 3;
+our $DB_VERSION = 4;