Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Builtins / Fallback / Ls.pm

package Psh::Builtins::Fallback::Ls;

=item * C<ls>

Shows the files in the current directory

=cut

sub bi_ls
{
       my $pattern= shift || '*';
       my $ps= $Psh::OS::FILE_SEPARATOR;
       $pattern.=$ps.'*' if( $pattern !~ /\*/ &&
                                                 -d Psh::Util::abs_path($pattern));
       my @files= map { 
                   return $1 if( m:\Q$ps\E([^\Q$ps\E]+)$:); $_
               } Psh::OS::glob($pattern);
       Psh::Util::print_list(sort @files);
       return (1,undef);
}

1;