Have you tried doing a print @test_files;? It looks to me like there
wouldn't be any files in the array because readdir(TESTS_DIR) would return
only the file names, not the full paths, so grep {-f $tests_directory/$_}
readdir TESTS_DIR; might not be returning anything. But then again I'm not
Timothy -
Yes, I have done a print @test_files and it is as expected.
Dick
Timothy Johnson wrote:
Have you tried doing a print @test_files;? It looks to me like there
wouldn't be any files in the array because readdir(TESTS_DIR) would return
only the file names, not the full
how are using this subroutine in your code?
Can you give us the line where you use this sub, Tk is bit picky at times
when you try funky things.
-Original Message-
From: richard noel fell [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, April 23, 2002 10:45 AM
To: [EMAIL PROTECTED]
Nikola -
Here is the code. I hope you can make some sense out of it. Thanks for
your efforts and help.
Dick
#!/usr/local/ActivePerl-5.6/bin/perl5.6.1 -w
use strict;
use File::Basename;
use Tk;
use Tk::Dialog;
use Cwd;
our $MW =MainWindow-new();
my $test_path=;
create_menu_bar();
I can't make sense of the code. Sorry, but this is what I see looking back..
[map {[ 'command', $_,-command=sub{$test_path=$tests_directory./.$_;
print $test_path\n;}]}@test_files];
This line... you will understand if broken up by some white space
[
map {
[ 'command',
Nikola -
An interesting point. Perhaps you are onto something, but an eval where
you suggested does not work. However, you comments lead me to other
ideas to try.
Thanks,
Dick
Nikola Janceski wrote:
I can't make sense of the code. Sorry, but this is what I see looking back..
[map