Lines Matching refs:current
556 my ($current,$inbytes,$outbytes,$next,$fallback) = @_;
558 # as current state.
559 $next ||= $current;
583 my $do_now = $current->{Raw}{$byte} ||= [{},-$pos,'',$fallback];
591 $current = $do_now->[RAW_NEXT];
598 my ($current,$inbytes,$outbytes,$next) = @_;
599 $next ||= $current;
604 my $do_now = $current->{Raw}{$byte} ||= [{},-$pos,''];
610 $current = $do_now->[RAW_NEXT];
912 push @inc, $inc unless $inc eq '.'; #skip current dir
1082 Now take a look at your current directory. It should look like this.