diff options
Diffstat (limited to 'contrib/perl5/lib/fields.pm')
| -rw-r--r-- | contrib/perl5/lib/fields.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/contrib/perl5/lib/fields.pm b/contrib/perl5/lib/fields.pm index ac45810..37ff99d 100644 --- a/contrib/perl5/lib/fields.pm +++ b/contrib/perl5/lib/fields.pm @@ -172,8 +172,7 @@ sub import { if ($fno and $fno != $next) { require Carp; if ($fno < $fattr->[0]) { - warnings::warn("Hides field '$f' in base class") - if warnings::enabled(); + warnings::warnif("Hides field '$f' in base class") ; } else { Carp::croak("Field name '$f' already in use"); } |
