S_utf16_textfilter() was not returning EOF correctly in some situations.

[p5sagit/p5-mst-13.2.git] / lib / shellwords.pl

diff --git a/lib/shellwords.pl b/lib/shellwords.pl
index b3ef33e..1c2c894 100644 (file)
--- a/lib/shellwords.pl
+++ b/lib/shellwords.pl
@@ -1,3 +1,6 @@
+;# This legacy library is deprecated and will be removed in a future
+;# release of perl.
+;#
 ;# shellwords.pl
 ;#
 ;# Usage:
@@ -8,6 +11,10 @@
 ;#     or
 ;#     @words = shellwords();          # defaults to $_ (and clobbers it)
 
+warn( "The 'shellwords.pl' legacy library is deprecated and will be"
+      . " removed in the next major release of perl. Please use the"
+      . " Text::ParseWords module instead." );
+
 require Text::ParseWords;
 *shellwords = \&Text::ParseWords::old_shellwords;