proxmox-mirrors/pve-manager
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-manager synced 2025-04-29 11:37:37 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

pveperf: print errno on die if sensible

Browse Source 
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2019-01-31 13:49:45 +01:00
parent 259c05ea2e
commit fcca6095e1
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
bin/pveperf
View File

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