Add warnif(), check warnings further up the stack,

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

diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm
index 588ecea..42d0834 100644 (file)
--- a/lib/Tie/Handle.pm
+++ b/lib/Tie/Handle.pm
@@ -120,8 +120,7 @@ sub new {
 sub TIEHANDLE {
     my $pkg = shift;
     if (defined &{"{$pkg}::new"}) {
-       warnings::warn "WARNING: calling ${pkg}->new since ${pkg}->TIEHANDLE is missing"
-           if warnings::enabled();
+       warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHANDLE is missing");
        $pkg->new(@_);
     }
     else {