From: Ben Morrow <ben@morrow.me.uk>
Date: Sat, 3 Jan 2009 08:23:32 +0000 (+0100)
Subject: Fix a thinko in regression test for [perl #54956]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44250bdc17df7fe8bb261563edbd7aeb85406e89;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;