diff options
| author | markm <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
|---|---|---|
| committer | markm <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
| commit | b878a8b4fc512ca76116a7012802d385208857c3 (patch) | |
| tree | 40ba760f36cd8e65b8c0a8caeaee00ceb84de622 /contrib/perl5/lib/fields.pm | |
| parent | 96faff292d8b1b0bfcebddfb2f70f375ad79fec7 (diff) | |
| parent | 3eac21f49bc763a6c0044b4afbc0c7ece760144f (diff) | |
| download | FreeBSD-src-b878a8b4fc512ca76116a7012802d385208857c3.zip FreeBSD-src-b878a8b4fc512ca76116a7012802d385208857c3.tar.gz | |
This commit was generated by cvs2svn to compensate for changes in r92442,
which included commits to RCS files with non-trunk default branches.
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"); } |
