Hm... just found this on Google, seems to work:
tie(*STDERR, 'Tk::Text', $log);
$SIG{'__WARN__'} = sub { print STDERR @_ };
I'll have to see if I can cut out all the junk first and have just the responses. Looks like it should be posible since a copy of STDERR seems to be stored in @_;
Philip
------------------
Limecat is not pleased.
Code:
my $log = $window->Text()->pack; tie(*STDERR, 'Tk::Text', $log);
$SIG{'__WARN__'} = sub { print STDERR @_ };
I'll have to see if I can cut out all the junk first and have just the responses. Looks like it should be posible since a copy of STDERR seems to be stored in @_;
Philip
------------------
Limecat is not pleased.