> I have a problem with the following code:
>
> sub FileSelect {
> my $types = [
> ['S19 Files', ['.s19']],
> ['All Files', '*', ],
> ];
> $filename = $leftframe->getOpenFile(-filetypes=>$types);
> ($name, $dir, $suffix) = fileparse($filename, ".s19");
> @hexfiles=glob("$dir/*.hex");
>
> if $dir contains whitespaces, @hexfiles doesn't get anything.
> How can I
> prevent that?
ah, I should mention, that I have
use File::Basename;
use File::DosGlob qw (glob);
use FindBin;
at the start of the program
Lars
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
