From 7e67c654c102bb5d9a62229161f7e8464f36a71a Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Sat, 11 Jul 2015 23:32:26 -0700 Subject: [PATCH] include is deprecated - improve deprecation message w/filename --- FS/FS/Mason.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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(@_); } -- 2.11.0