From fcca6095e19a014e4767841545edbb4f19070af3 Mon Sep 17 00:00:00 2001
From: Thomas Lamprecht <t.lamprecht@proxmox.com>
Date: Thu, 31 Jan 2019 13:49:45 +0100
Subject: [PATCH] pveperf: print errno on die if sensible

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
---
 bin/pveperf | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/bin/pveperf b/bin/pveperf
index d994c239..0b84e703 100755
--- a/bin/pveperf
+++ b/bin/pveperf
@@ -16,7 +16,6 @@ if ($#ARGV >= 1) {
 my $path = $ARGV[0] || '/';
 
 sub drop_cache {
-
     # free pagecache,dentries,inode cache
     if (-f '/proc/sys/vm/drop_caches') {
 	system ("echo 3 > /proc/sys/vm/drop_caches");
@@ -67,7 +66,6 @@ sub test_fsync {
     my $dir = "$basedir/ptest.$$";
 
     eval {
-
 	mkdir $dir;
 
 	my $data = ('A' x 4000) . "\n";
@@ -82,7 +80,7 @@ sub test_fsync {
 
 	    my $filename = "$dir/tf_$m.dat";
 
-	    open (TMP, ">$filename") || die "open failed";
+	    open (TMP, ">$filename") || die "open failed: $!\n";
  
 	    print TMP $data;
 
@@ -111,7 +109,7 @@ sub test_seektime {
 
     drop_cache ();
 
-    open (ROOTHD, "<$rootdev") || die "unable to open HD";
+    open (ROOTHD, "<$rootdev") || die "unable to open HD '$rootdev': $!\n";
 
     my $starttime = [gettimeofday];
     my $count;
@@ -124,7 +122,7 @@ sub test_seektime {
 
 	sysseek (ROOTHD, $pos, 0);
 
-	(sysread (ROOTHD, $readbuf, 512) == 512) || die "read failed";
+	(sysread (ROOTHD, $readbuf, 512) == 512) || die "read failed: $!\n";
 
 	$elapsed = tv_interval ($starttime);
 	
@@ -149,18 +147,15 @@ sub test_read {
     my $readbuf;
 
 
-    open (ROOTHD, "<$rootdev") || die "unable to open HD";
+    open (ROOTHD, "<$rootdev") || die "unable to open HD '$rootdev': $!\n";
 
- 
     for (;;) {
-
 	my $c = sysread (ROOTHD, $readbuf, 2 * 1024 *1024);
-	die "read failed" if $c < 0;
+	die "read failed: $!\n" if $c < 0;
 
 	$bytes += $c;
 
 	$elapsed = tv_interval ($starttime);
-	
 	last if $elapsed > 3;
     }