Commit | Line | Data |
---|---|---|
0111154e Z |
1 | warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; |
2 | ||
c068db90 S |
3 | ;# This legacy library is deprecated and will be removed in a future |
4 | ;# release of perl. | |
5 | ;# | |
2b69d0c2 LW |
6 | ;# shellwords.pl |
7 | ;# | |
8 | ;# Usage: | |
9 | ;# require 'shellwords.pl'; | |
08b96d1f | 10 | ;# @words = shellwords($line); |
2b69d0c2 | 11 | ;# or |
08b96d1f | 12 | ;# @words = shellwords(@lines); |
2b69d0c2 | 13 | ;# or |
08b96d1f | 14 | ;# @words = shellwords(); # defaults to $_ (and clobbers it) |
9ef589d8 | 15 | |
6a724e38 AT |
16 | require Text::ParseWords; |
17 | *shellwords = \&Text::ParseWords::old_shellwords; | |
9ef589d8 | 18 | |
9ef589d8 | 19 | 1; |