X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Ffields.pm;h=ac4581036f72234ddd252436d1c35347837d7216;hb=a8d38795b399b1ac07aef5af6225e78a36669c9a;hp=5a84e28f2e22f2c173d4bb8afe0de181fc2b20bd;hpb=33e06c89116da420821234eb364a70b215b00a8d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/fields.pm b/lib/fields.pm
index 5a84e28..ac45810 100644
--- a/lib/fields.pm
+++ b/lib/fields.pm
@@ -130,6 +130,7 @@ L<perlref/Pseudo-hashes: Using an array as a hash>
 use 5.005_64;
 use strict;
 no strict 'refs';
+use warnings::register;
 our(%attr, $VERSION);
 
 $VERSION = "1.01";
@@ -171,7 +172,8 @@ sub import {
 	if ($fno and $fno != $next) {
 	    require Carp;
             if ($fno < $fattr->[0]) {
-                Carp::carp("Hides field '$f' in base class") if $^W;
+                warnings::warn("Hides field '$f' in base class") 
+		    if warnings::enabled();
             } else {
                 Carp::croak("Field name '$f' already in use");
             }