Generate OP_IS_SOCKET() and OP_IS_FILETEST() macros

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

diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm
index f64e4b2..588ecea 100644 (file)
--- a/lib/Tie/Handle.pm
+++ b/lib/Tie/Handle.pm
@@ -11,15 +11,15 @@ Tie::Handle, Tie::StdHandle  - base class definitions for tied handles
 
     package NewHandle;
     require Tie::Handle;
-     
+
     @ISA = (Tie::Handle);
-     
+
     sub READ { ... }           # Provide a needed method
     sub TIEHANDLE { ... }      # Overrides inherited method
-         
-     
+
+
     package main;
-    
+
     tie *FH, 'NewHandle';
 
 =head1 DESCRIPTION
@@ -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 {