From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 12 Jul 2015 06:32:26 +0000 (-0700)
Subject: include is deprecated - improve deprecation message w/filename
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=7e67c654c102bb5d9a62229161f7e8464f36a71a

include is deprecated - improve deprecation message w/filename
---

diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm
index d0ac8a6ca..d1535b5a3 100644
--- a/FS/FS/Mason.pm
+++ b/FS/FS/Mason.pm
@@ -508,9 +508,8 @@ if ( -e $addl_handler_use_file ) {
   };
   
   sub include {
-    use vars qw($m);
-    use Carp;
-    carp 'include deprecated; use an HTML::Mason <& &> style include (or $m->scomp)';
+    use vars qw($m @CARP_NOT);
+    warn 'include deprecated; use an HTML::Mason <& &> style include (or $m->scomp) at '. $m->callers(1)->path. "\n";
     $m->scomp(@_);
   }