Bug 11124: QA Follow-up resolving a warning and three typos

Resolves warning on uninitialized author in split on line 128.
Just adds the same behavior for title on line 129 for completeness.
Fixes typo on occurrences and two other minor typos.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/misc/load_testing/benchmark_staff.pl b/misc/load_testing/benchmark_staff.pl
index 6ccaa4926d2327e7c2cc646e2f046ab61778cf73..56085c82b78722481b1ae4dc9d90ad3262d3a9af 100644 (file)
--- a/misc/load_testing/benchmark_staff.pl
+++ b/misc/load_testing/benchmark_staff.pl
@@ -42,10 +42,10 @@ my $short_psec="|-\n|ON\n";
 
 if ($help || !$baseurl || !$user || !$password) {
     print <<EOF
-This script runs a benchmark of the staff interface. It benchmark 6 different pages:
+This script runs a benchmark of the staff interface. It benchmarks 6 different pages:
 \t1- the staff main page
 \t2- the catalog detail page, with a random biblionumber
-\t3- the catalog search page, using a term retrieved from one of the 10 first title/author in the database
+\t3- the catalog search page, using a term retrieved from one of the 10 first titles/authors in the database
 \t4- the patron detail page, with a random borrowernumber
 \t5- the patron search page, searching for "Jean"
 \t6- the circulation itself, doing check-out and check-in of random items to random patrons
@@ -125,8 +125,8 @@ $sth->execute;
 my ($title,$author);
 my @searchwords;
 while (($title,$author)=$sth->fetchrow) {
-    push @searchwords,split / /, $author;
-    push @searchwords,split / /, $title;
+    push @searchwords,split / /, $author//'';
+    push @searchwords,split / /, $title//'';
 }
 
 $sth = $dbh->prepare("select max(itemnumber) from items");
@@ -139,7 +139,7 @@ unless ($short_print) {
     print "--------------\n";
     print "Koha STAFF benchmarking utility\n";
     print "--------------\n";
-    print "Benchmarking with $max_tries occurences of each operation and $concurrency concurrent sessions \n";
+    print "Benchmarking with $max_tries occurrences of each operation and $concurrency concurrent sessions \n";
 }
 #
 # the global benchmark we do at the end...