X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FMason.pm;h=d1535b5a39dddf34839b9ba8374918a4f0f565f1;hp=d0ac8a6ca342def5d43510968fdfaccea2db4a1f;hb=7e67c654c102bb5d9a62229161f7e8464f36a71a;hpb=3a8e974a619d01e060bd68cadfd4319e5536c8d2

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(@_);
   }