diff options
Diffstat (limited to 'lib/exceptions.pl')
| -rw-r--r-- | lib/exceptions.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/exceptions.pl b/lib/exceptions.pl index ed1f927d27..8c77a07827 100644 --- a/lib/exceptions.pl +++ b/lib/exceptions.pl @@ -3,11 +3,15 @@ # # This library is no longer being maintained, and is included for backward # compatibility with Perl 4 programs which may require it. +# This legacy library is deprecated and will be removed in a future +# release of perl. # # In particular, this should not be used as an example of modern Perl # programming techniques. -# -# + +warn( "The 'exceptions.pl' legacy library is deprecated and will be" + . " removed in the next major release of perl." ); + # Here's a little code I use for exception handling. It's really just # glorfied eval/die. The way to use use it is when you might otherwise # exit, use &throw to raise an exception. The first enclosing &catch |