Lines Matching refs:dirs

591     my @dirs = File::Spec->splitdir( $dir );
592     pop( @dirs );
593     $dir = File::Spec->catdir( @dirs );
635     my @dirs = @_;
637     my ( $vol, $dirs ) = File::Spec->splitpath( $path, "no_file" );
638     @dirs = ( File::Spec->splitdir( $dirs ), @dirs );
639     $dirs = File::Spec->catdir( @dirs );
640     $path = File::Spec->catpath( $vol, $dirs, $file );
649     my @dirs = @_;
651     my ( $vol, $dirs ) = File::Spec->splitpath( $path, "no_file" );
652     @dirs = ( File::Spec->splitdir( $dirs ), @dirs );
653     $dirs = File::Spec->catdir( @dirs );
654     $path = File::Spec->catpath( $vol, $dirs, "" );
727     my $dirs = ( exists( $opts{ -dirs } ) ? $opts{ -dirs } : [ File::Spec->path() ] );
741     foreach my $dir ( @$dirs ) {