| Subject: | Different warning in perl 5.8.3 |
Perl 5.8.3 has a slightly different warning for the collision in t/bugs.t.
Here's a clumsy patch:
# diff --unified t/bugs.t.orig t/bugs.t
--- t/bugs.t.orig Wed Feb 11 12:06:07 2004
+++ t/bugs.t Wed Feb 11 12:11:44 2004
@@ -76,9 +76,18 @@
use public qw(f);
use base qw(Foo); # base comes after 'use public'
-
-::ok( $warnings eq <<WARN, 'Improper use of fields & base warned about' );
+my $mesg = <<WARN;
Bar is inheriting from Foo but already has its own fields!
This will cause problems with pseudo-hashes.
Be sure you use base BEFORE declaring fields
WARN
+
+if ($^V gt v5.8.2) {
+ $mesg = <<WARN;
+Bar is inheriting from Foo but already has its own fields!
+This will cause problems.
+Be sure you use base BEFORE declaring fields
+WARN
+}
+
+::ok($warnings eq $mesg, 'Improper use of fields & base warned about' );