From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 20 Apr 2006 18:51:02 +0000 (+0000)
Subject: Tweak change 23256 to continue passing on 5.8.x
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef5bf20bc6b2ed1c354c74b07df9c42d91e8f8ed;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {