diff options
| author |   millert <millert@openbsd.org> | 2001-05-24 18:21:31 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2001-05-24 18:21:31 +0000 |
| commit | c48bdce47de487644c5bf49fc71f7db60e4f07d6 (patch) | |
| tree | 1044cea90429d4b1485356ed038fb38b7dba2eb2 /gnu/usr.bin/perl/lib/fields.pm | |
| parent | Add isakmpd.pid to the FILES section. (diff) | |
| download | wireguard-openbsd-c48bdce47de487644c5bf49fc71f7db60e4f07d6.tar.xz wireguard-openbsd-c48bdce47de487644c5bf49fc71f7db60e4f07d6.zip | |
stock perl 5.6.1
Diffstat (limited to 'gnu/usr.bin/perl/lib/fields.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/fields.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/fields.pm b/gnu/usr.bin/perl/lib/fields.pm index ac4581036f7..37ff99d78ac 100644 --- a/gnu/usr.bin/perl/lib/fields.pm +++ b/gnu/usr.bin/perl/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"); } |