include is deprecated - improve deprecation message w/filename

diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm
index d0ac8a6..d1535b5 100644 (file)
--- 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(@_);
   }