diff options
| author | Mark Murray <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
|---|---|---|
| committer | Mark Murray <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
| commit | 535b847ca738d6461ab6779b64e475012eb0d44d (patch) | |
| tree | 40ba760f36cd8e65b8c0a8caeaee00ceb84de622 /contrib/perl5/lib/Tie/Hash.pm | |
| parent | 903163ac3e1724978a60a1c0b5ae2f9dcbadf59f (diff) | |
| parent | fc75d0664419eb8c8f264d8f298df2cd155c8966 (diff) | |
This commit was generated by cvs2svn to compensate for changes in r92442,
which included commits to RCS files with non-trunk default branches.
Notes
Notes:
svn path=/head/; revision=92443
Diffstat (limited to 'contrib/perl5/lib/Tie/Hash.pm')
| -rw-r--r-- | contrib/perl5/lib/Tie/Hash.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/contrib/perl5/lib/Tie/Hash.pm b/contrib/perl5/lib/Tie/Hash.pm index c6ec3d4f5c62..2244711669ab 100644 --- a/contrib/perl5/lib/Tie/Hash.pm +++ b/contrib/perl5/lib/Tie/Hash.pm @@ -114,8 +114,7 @@ sub new { sub TIEHASH { my $pkg = shift; if (defined &{"${pkg}::new"}) { - warnings::warn "WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing" - if warnings::enabled(); + warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing"); $pkg->new(@_); } else { |