home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OpenStep 4.2
/
Openstep-4.2-Intel-User.iso
/
usr
/
lib
/
perl5
/
auto
/
Text
/
ParseWords
/
shellwords.al
< prev
Wrap
Text File
|
1997-03-29
|
485b
|
19 lines
# NOTE: Derived from lib/Text/ParseWords.pm. Changes made here will be lost.
package Text::ParseWords;
sub shellwords {
# A &shellwords() replacement is included to demonstrate the new package.
# This version differs from the original in that it will _NOT_ default
# to using $_ if no arguments are given. I personally find the old behavior
# to be a mis-feature.
local(@lines) = @_;
$lines[$#lines] =~ s/\s+$//;
"ewords('\s+', 0, @lines);
}
1;