search_complete() gets only the name out of @$ref.

[irspy-moved-to-github.git] / lib / ZOOM / IRSpy / Test / Search / Bath.pm

diff --git a/lib/ZOOM/IRSpy/Test/Search/Bath.pm b/lib/ZOOM/IRSpy/Test/Search/Bath.pm
index 8723b81..4dcd797 100644 (file)
--- a/lib/ZOOM/IRSpy/Test/Search/Bath.pm
+++ b/lib/ZOOM/IRSpy/Test/Search/Bath.pm
@@ -34,10 +34,10 @@ use ZOOM::IRSpy::Utils qw(isodate);
 
 
 my @bath_queries = (
-    [ author => 1003 ],        # 5.A.0.1
-    [ title => 4 ],    # 5.A.0.2
+    [ author =>  1003 ],       # 5.A.0.1
+    [ title =>   4 ],  # 5.A.0.2
     [ subject => 21 ], # 5.A.0.3
-    [ any => 1016 ],   # 5.A.0.4
+    [ any =>     1016 ],       # 5.A.0.4
     );
 
 
@@ -72,7 +72,7 @@ sub search_complete {
 
     my $qindex = $udata->{qindex};
     my $ref = $bath_queries[$qindex];
-    my($name, $use_attr) = @$ref;
+    my($name) = @$ref;
 
     my $n = $task->{rs}->size();