Commit | Line | Data |
---|---|---|
c068db90 S |
1 | ;# This legacy library is deprecated and will be removed in a future |
2 | ;# release of perl. | |
3 | ;# | |
2b69d0c2 LW |
4 | ;# shellwords.pl |
5 | ;# | |
6 | ;# Usage: | |
7 | ;# require 'shellwords.pl'; | |
08b96d1f | 8 | ;# @words = shellwords($line); |
2b69d0c2 | 9 | ;# or |
08b96d1f | 10 | ;# @words = shellwords(@lines); |
2b69d0c2 | 11 | ;# or |
08b96d1f | 12 | ;# @words = shellwords(); # defaults to $_ (and clobbers it) |
9ef589d8 | 13 | |
c068db90 S |
14 | warn( "The 'shellwords.pl' legacy library is deprecated and will be" |
15 | . " removed in the next major release of perl. Please use the" | |
16 | . " Text::ParseWords module instead." ); | |
17 | ||
6a724e38 AT |
18 | require Text::ParseWords; |
19 | *shellwords = \&Text::ParseWords::old_shellwords; | |
9ef589d8 | 20 | |
9ef589d8 | 21 | 1; |