Tweak change 23256 to continue passing on 5.8.x

p4raw-id: //depot/perl@27919

diff --git a/lib/base/t/fields.t b/lib/base/t/fields.t
index 049b29d..4d29d8d 100644 (file)
--- a/lib/base/t/fields.t
+++ b/lib/base/t/fields.t
@@ -41,10 +41,9 @@ is_deeply( [sort &show_fields('Foo', fields::PRIVATE)],
 # We should get compile time failures field name typos
 eval q(return; my Foo $obj = Foo->new; $obj->{notthere} = "");
 
-my $error = $Has_PH ? 'No such(?: [\w-]+)? field "notthere"'
-                    : q[No such class field "notthere" in variable $obj ].
-                      q[of type Foo];
-like( $@, qr/^\Q$error/i );
+my $error = $Has_PH ? qr/No such(?: [\w-]+)? field "notthere"/
+    : qr/No such class field "notthere" in variable \$obj of type Foo/;
+like( $@, $error );
 
 
 foreach (Foo->new) {