From d0b872f4a3f74016d45ddf8c2048b3507b8da615 Mon Sep 17 00:00:00 2001 From: Christiam Camacho Date: Fri, 26 Feb 2021 09:37:15 -0500 Subject: [PATCH 1/2] Invoke free -k to gather memory in Kb --- bin/driver.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/driver.pl b/bin/driver.pl index 19ccaec..6a631ba 100755 --- a/bin/driver.pl +++ b/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; From ca376b51764b59b46d3e9986c60def041a49eb85 Mon Sep 17 00:00:00 2001 From: Christiam Camacho Date: Fri, 26 Feb 2021 09:38:32 -0500 Subject: [PATCH 2/2] Bump version --- version.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/version.pl b/version.pl index f39f1d8..e9cbc4a 100644 --- a/version.pl +++ b/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;