view release on metacpan or  search on metacpan

lib/Tk/JFileDialog.pm  view on Meta::CPAN

		-underline => 0,
		-command => sub
		{
			$self->{'Configure'}{'-Path'} = $homedir;
			if ($bummer)
			{
				$self->{'Configure'}{'-Path'} =~ s#\\#\/#g;
			}
			else
			{
				$self->{'Configure'}{'-Path'} = (getpwuid($<))[7]
						unless (!$< || $self->{'Configure'}{'-Path'});
			}
			$self->{'Configure'}{'-Path'} ||= &cwd() || &getcwd();
			if ($bummer && $self->{'Configure'}{'-Path'} =~ /^(\w\:)/)
			{
				$driveletter = $1;
				$self->{'Configure'}{'-Path'} =~ s/^(\w\:)//;  #STRANGE: PERL WOULDN'T DO THIS AS A SINGLE TEST & GRAB $1?!
			}
			&RescanFiles($self);
		}