Re^3: eval doesn't work under tkx

in reply to Re^2: eval doesn't work under tkx
in thread eval doesn't work under tkx

I mean the following:

    while ($sqlSuccess == 0)
    {
        eval
        {
            ...
        };
        if ($@)
        {
            my $errString = $@;
            $@ = ''; # <-- here
            print $fileHandle "caught error $errString\n";
            ...
        }
    }
[download]

Comment on Re^3: eval doesn't work under tkx Download Code

Replies are listed 'Best First'.
Re^4: eval doesn't work under tkx by nyj (Novice) on Jul 19, 2010 at 10:42 UTC
Thanks for your reply - I've been parsing the sql statement and doing a 'drop table' in the meantime, but I'll try your suggestion. Thanks again	[reply]

In Section Seekers of Perl Wisdom