From: Steffen Mueller <smueller@cpan.org>
Date: Wed, 2 Sep 2009 16:27:23 +0000 (+0200)
Subject: Deprecate dotsh.pl with a warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d10188c0fb468d7559fce488e01d19e6d6ac47b;p=p5sagit%2Fp5-mst-13.2.git

Deprecate dotsh.pl with a warning
---

diff --git a/lib/dotsh.pl b/lib/dotsh.pl
index 810ebc4..0819e18 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) = '';