diff options
Diffstat (limited to 'lib/Tie/Handle.pm')
| -rw-r--r-- | lib/Tie/Handle.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm index cbac73535d..588ecead89 100644 --- a/lib/Tie/Handle.pm +++ b/lib/Tie/Handle.pm @@ -108,6 +108,7 @@ The L<perltie> section contains an example of tying handles. =cut use Carp; +use warnings::register; sub new { my $pkg = shift; @@ -119,8 +120,8 @@ sub new { sub TIEHANDLE { my $pkg = shift; if (defined &{"{$pkg}::new"}) { - carp "WARNING: calling ${pkg}->new since ${pkg}->TIEHANDLE is missing" - if $^W; + warnings::warn "WARNING: calling ${pkg}->new since ${pkg}->TIEHANDLE is missing" + if warnings::enabled(); $pkg->new(@_); } else { |