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..
>
> [
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 {
[ 'com
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();
Mai
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]
> Su
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
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
