code cleanup

diff --git a/bin/test/perftest2.pl b/bin/test/perftest2.pl
index d7911e96ee52da9c02e2867b2ce90ac94f572ab9..6208827617c05773955afbd5cc23028b28e6d192 100755 (executable)
--- a/bin/test/perftest2.pl
+++ b/bin/test/perftest2.pl
@@ -1,7 +1,8 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use lib '../../';
 use strict;
+use warnings;
 use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );
 use PVE::INotify;
 use PVE::AccessControl;
@@ -12,6 +13,6 @@ my $hostname = PVE::INotify::read_file("hostname");
 # but we can simply create a ticket if we are root
 my $ticket = PVE::AccessControl::assemble_ticket('root@pam');
 
-my $cmd = "ab -c 2 -n 1000 -C 'PVEAuthCookie=$ticket'  https://$hostname:8006/api2/json";
+my $cmd = "ab -c 10 -n 1000 -C 'PVEAuthCookie=$ticket'  https://$hostname:8006/api2/json";
 print "$cmd\n";
 system($cmd) == 0 || die "command failed - $!\n";

diff --git a/bin/test/perftest3.pl b/bin/test/perftest3.pl
index f1f84b8ad0f044ccea9a1985cd004a8de5914d62..e1ad61cd211cbeafd749a5dbcb999b42fb5ec426 100755 (executable)
--- a/bin/test/perftest3.pl
+++ b/bin/test/perftest3.pl
@@ -1,7 +1,8 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use lib '../../';
 use strict;
+use warnings;
 use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );
 use PVE::INotify;
 use PVE::AccessControl;
@@ -15,7 +16,7 @@ my $hostname = PVE::INotify::read_file("hostname");
 # but we can simply create a ticket if we are root
 my $ticket = PVE::AccessControl::assemble_ticket('root@pam');
 
-my $wcount = 1;
+my $wcount = 10;
 my $qcount = 100;
 
 sub test_rpc {
@@ -65,6 +66,4 @@ sub run_tests {
     print "$host: $tpq ms per query\n";
 }
 
-# why is this faster than LWP::UserAgent?
-
-run_tests($hostname); # test 'apache'
+run_tests($hostname); # test 'pveproxy'