diff options
Diffstat (limited to 'lib/dotsh.pl')
| -rw-r--r-- | lib/dotsh.pl | 9 |
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) = ''; |