in reply to redirecting STDERR

Your sub should start more like this: 
sub tackle_err{
        my $file_handle = shift;
        $_ = <$file_handle>;

[download]
You weren't reading from the filehandle you passed in. Not sure why you got an undef back from reading the handle directly though. <thumbsuck>Might be TK opening the filehandle directly, so you no longer have direct access ... </thumbsuck>

Replies are listed 'Best First'.
Re: Re: redirecting STDERR
by NaSe77 (Monk) on May 16, 2002 at 11:52 UTC
    it works now thanx (i use now Tk::ErrorDialog and sub tackle_err with the errormessage as argument): 
    use Tk::ErrorDialog;

sub tackle_err{
        my $label_text = shift;
        my $error_window = $main->Toplevel(
                                        -title => "Error!!"
                                );
        $error_window -> Label (
                                -text => $label_text
                        )->pack(
                                -side=>"top", 
                                -expand=>1,
                                -padx=>100, 
                                -anchor=>'n'
                        );
        $error_window -> Button (
                                -text => "OK",
                                -command => sub {$error_window->destro
+y}
                        )->pack;
}

    [download]

    NaSe

[reply]
[d/l]

In Section Seekers of Perl Wisdom