lib/File/Find.pm

183 	my $top_item = $TOP;
184 	$top_item = VMS::Filespec::unixify($top_item) if $Is_VMS;
186 	($topdev,$topino,$topmode,$topnlink) = $follow ? stat $top_item : lstat $top_item;
189 	    $top_item =~ s|[/\\]\z||
190 	      unless $top_item =~ m{^(?:\w:)?[/\\]$};
193 	    $top_item =~ s|/\z|| unless $top_item eq '/';
200 	    if (substr($top_item,0,1) eq '/') {
201 		$abs_dir = $top_item;
203 	    elsif ($top_item eq $File::Find::current_dir) {
207 		$top_item =~ s/\.dir\z//i if $Is_VMS;
208 		$abs_dir = contract_name("$cwd/",$top_item);
214 			$dangling_symlinks->($top_item, $cwd);
216 			warnings::warnif "$top_item is a dangling symbolic link\n";
223 		$top_item =~ s/\.dir\z//i if $Is_VMS;
224 		_find_dir_symlnk($wanted, $abs_dir, $top_item);
229 	    $topdir = $top_item;
231 		warnings::warnif "Can't stat $top_item: $!\n";
235 		$top_item =~ s/\.dir\z//i if $Is_VMS;
236 		_find_dir($wanted, $top_item, $topnlink);
240 		$abs_dir= $top_item;
246 		($dir,$_) = ('./', $top_item);