diff options
| author | Steffen Mueller <smueller@cpan.org> | 2009-09-02 18:45:23 +0200 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2009-09-02 18:45:23 +0200 |
| commit | 25209816f53a8d9986b7b64f9d3cf1004452aacc (patch) | |
| tree | e2be101e6c237f4161fc990b69a260f0fe9524ea | |
| parent | e3c0ad970ebd69ea25e9ecd3835c43fcf2d80b0a (diff) | |
| download | perl-25209816f53a8d9986b7b64f9d3cf1004452aacc.tar.gz | |
Deprecate exceptions.pl with a warning
| -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 |