note
hiseldl
<P>Update: <homer_simpson_voice>DOH! cloooosures</homer_simpson_voice><br />
-- I'll leave the text here so that no else who reads this makes the same mistake. :-)
</P>
<P>In your call to component_window(), you assign $pcrh and $pid a la
<code> my ($prch,$pid) = @_;
</code>
now, I don't see a shift nor a pop nor any other @_ manipulations, which makes your call to tail_lines() incorrect:
<code>sub component_window {
my ($prch,$pid) = @_;
...
my $tail = Tk::IO->new(
-linecommand => sub { tail_lines($prch, $_[0]) });
...
}
sub tail_lines {
my ($proc,$text) = @_;
...
}</code>
because <code>$_[0]</code> is the same as <code>$prch</code> when you call <code>tail_lines($prch, $_[0])</code>, and this seems to be not what you want.
</P>
<P>You should be able to either pass the third element directly or get the third element in a var at the top of your sub (i.e.
<code>sub component_window {
my ($prch,$pid,$text)=@_;
...</code>
and pass that...
<code> ...
my $tail = Tk::IO->new(
-linecommand => sub { tail_lines($prch, $text) });
...
}
</code>
</P>
<P>--<br/>[hiseldl]<br/>What time is it? It's [190308|Camel Time!]</P>
247232
247232