X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htetc%2Fhandler.pl;h=94377cf34ee07a43d9d2c7efd8e1b4652f889318;hb=25591d52b441b5bfa34f0ffef1095098e1d2f1b2;hp=4ce6586857cc9434b0e79159832edcd4c826a8e8;hpb=eda086d0c5c4829e3f29dea030d2b0efb6fecbb0;p=freeside.git

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 4ce658685..94377cf34 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -76,8 +76,11 @@ sub handler
       RT::Init() if $RT::VERSION; #for lack of something else
 
       #we don't want the RT error handlers under FS
-      undef $SIG{__WARN__};
-      undef $SIG{__DIE__};
+      {
+        no warnings 'uninitialized';
+        undef($SIG{__WARN__}) if defined($SIG{__WARN__});
+        undef($SIG{__DIE__})  if defined($SIG{__DIE__} );
+      }
 
       $ah->interp($fs_interp);