Fix a thinko in regression test for [perl #54956]

(follows to commit 8c8eee8276dbc780932b841fe5183943a7117a3d)

diff --git a/t/op/bop.t b/t/op/bop.t
index bc61c58..b7f82ee 100755 (executable)
--- a/t/op/bop.t
+++ b/t/op/bop.t
@@ -447,7 +447,7 @@ for my $str ("x", "\x{100}") {
 }
 
 sub PVBM () { "X" }
-index PVBM, "foo";
+index "foo", PVBM;
 
 my $warn = 0;
 local $^W = 1;