X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTie%2FHandle.pm;h=42d0834ed8af5cc3c2c3df063e2230795208ceb3;hb=7e6d00f88633359fc96f8d1e8d7c3aa419c0d976;hp=588ecead899982d05d4cd12700078d5a3270fade;hpb=68cc8748cd09408eb4c1922bf0cb3edbeb4cec80;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm
index 588ecea..42d0834 100644
--- 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 {