http://www.perlmonks.org?node_id=49830


in reply to Re: (tye)Re: TK Problem (me again)
in thread TK Problem (me again)

foreach ($textline = <LOG>) {

doesn't do what you want. Perhaps:

foreach my $textline ( <LOG> ) { # or, much better: while( defined( $textline= <LOG> ) ) {
I was thinking of using nearly your original code inside of insert_lines(), assuming that that code set the default color for new insertions. I guess you'd have to restore the default color in the else clause or at the bottom of the loop (or in a continue block).

        - tye (but my friends call me "Tye")