Geek Gadgets 1/ADE-1.bin/ade-dist/perl-5.003-bin.lha/lib/perl5/auto/Text/ParseWords/shellwords.al

Text File | 1996-10-10 | 222 b | 13 lines

# NOTE: Derived from lib/Text/ParseWords.pm.  Changes made here will be lost.
package Text::ParseWords;

sub shellwords {
    local(@lines) = @_;
    $lines[$#lines] =~ s/\s+$//;
    "ewords('\s+', 0, @lines);
}



1;