Deprecate dotsh.pl with a warning
authorSteffen Mueller <smueller@cpan.org>
Wed, 2 Sep 2009 16:27:23 +0000 (18:27 +0200)
committerSteffen Mueller <smueller@cpan.org>
Wed, 2 Sep 2009 16:33:08 +0000 (18:33 +0200)
lib/dotsh.pl

index 810ebc4..0819e18 100644 (file)
@@ -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:
 #      &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) = '';