SYN SYN

[p5sagit/p5-mst-13.2.git] / lib / Tie / Hash.pm

diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm
index c6ec3d4..2244711 100644 (file)
--- a/lib/Tie/Hash.pm
+++ b/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 {