diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-07-11 23:32:28 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-07-11 23:32:28 -0700 |
| commit | 81d75b9e573b0f814ee279b05dadbfb79050626a (patch) | |
| tree | d9f1ec46bc4d0c213935f2b1eed42564a43a5c57 /FS/FS | |
| parent | d07d45de7c768036514509bf9c0de8e1cc41b884 (diff) | |
include is deprecated - improve deprecation message w/filename
Diffstat (limited to 'FS/FS')
| -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 d0ac8a6..d1535b5 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(@_); } |