Help for this page

Select Code to Download

Select or download this

if ($pat =~ /\s/) {
    # XXX this is needed for compatibility with the csh
    # implementation in Perl.  Need to support a flag
...
    require Text::ParseWords;
    @pat = Text::ParseWords::parse_line('\s+',0,$pat);
}