From bda1fcd4d81eff7bedc8505e3ff709a5092e7adf Mon Sep 17 00:00:00 2001 From: Slaven Rezic Date: Thu, 9 Jan 2020 09:23:16 +0100 Subject: [PATCH] RT #93079: more diagnostics --- MemInfo.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/MemInfo.pm b/MemInfo.pm index e076519..a1d17d8 100644 --- a/MemInfo.pm +++ b/MemInfo.pm @@ -33,7 +33,7 @@ our $VERSION = '0.03'; sub get_mem_info() { my %mem; - open(INFIL,"/proc/meminfo") || die("Unable To Open /proc/meminfo\n"); + open(INFIL,"/proc/meminfo") || die("Unable To Open /proc/meminfo: $!"); NXTMI: foreach() { if( m/^Mem:\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ ) { $mem{mem_total} = $1; -- 2.7.4