diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-07-11 23:32:26 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-07-11 23:32:26 -0700 |
| commit | 7e67c654c102bb5d9a62229161f7e8464f36a71a (patch) | |
| tree | be3b5ef16341553665e02c55fcdc0452bf26b9c4 | |
| parent | 3a8e974a619d01e060bd68cadfd4319e5536c8d2 (diff) | |
include is deprecated - improve deprecation message w/filename
| -rw-r--r-- | FS/FS/Mason.pm | 5 |
1 files 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(@_); } |