home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / perl-5.003-bin.lha / lib / perl5 / auto / Text / ParseWords / shellwords.al < prev   
Text File  |  1996-10-09  |  222b  |  13 lines
  1. # NOTE: Derived from lib/Text/ParseWords.pm.  Changes made here will be lost.
  2. package Text::ParseWords;
  3.  
  4. sub shellwords {
  5.     local(@lines) = @_;
  6.     $lines[$#lines] =~ s/\s+$//;
  7.     "ewords('\s+', 0, @lines);
  8. }
  9.  
  10.  
  11.  
  12. 1;
  13.