From 6e37324645975f18db83d3aaf3f6de4b7b064969 Mon Sep 17 00:00:00 2001 From: Steffen Mueller Date: Wed, 2 Sep 2009 20:02:32 +0200 Subject: [PATCH] Deprecate getcwd.pl with a warning --- lib/getcwd.pl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lib/getcwd.pl b/lib/getcwd.pl index eca6ba1..571b319 100644 --- a/lib/getcwd.pl +++ b/lib/getcwd.pl @@ -2,12 +2,17 @@ # # 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. # # Suggested alternative: Cwd -# + +warn( "The 'getcwd.pl' legacy library is deprecated and will be" + . " removed in the next major release of perl. Please use the" + . " Cwd module instead." ); + # # Usage: $cwd = &getcwd; -- 1.8.3.1