Deprecate dotsh.pl with a warning

1 files changed, 8 insertions, 1 deletions

diff --git a/lib/dotsh.pl b/lib/dotsh.pl
index 810ebc4d60..0819e18c73 100644
--- a/lib/dotsh.pl
+++ b/lib/dotsh.pl
@@ -3,11 +3,12 @@
 #
 # 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.
 #
-#
 #   Author: Charles Collins
 #
 #   Description:
@@ -31,6 +32,12 @@
 #      &dotsh ('/foo/bar');
 #      &dotsh ('/foo/bar arg1 ... argN');
 #
+
+warn( "The 'dotsh.pl' legacy library is deprecated and will be"
+      . " removed in the next major release of perl. Please use "
+      . " one of the related modules from CPAN instead."
+      . " (Shell::Source, Shell::GetEnv, ...)" );
+
 sub dotsh {
    local(@sh) = @_;
    local($tmp,$key,$shell,$command,$args,$vars) = '';