[perl #43242] "use base" breaks code containing peculiarly named constant

From: Martin Becker (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-7948-1182185333-640.43242-75-0@perl.org>

plus a test case

p4raw-id: //depot/perl@31420

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/base/t/base.t b/lib/base/t/base.t
index d0e94f8b3c..7a707ded43 100644
--- a/lib/base/t/base.t
+++ b/lib/base/t/base.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 11;
+use Test::More tests => 12;
 
 use_ok('base');
 
@@ -85,3 +85,9 @@ package Test::SIGDIE;
          'Base class empty error message');
 
 }
+
+package Schlozhauer;
+use constant FIELDS => 6;
+package Basilisco;
+eval q{ use base 'Schlozhauer' };
+::is( $@, '', 'Can coexist with a FIELDS constant' );