On Mon, 4 Feb 2002, Michael G Schwern wrote: > Mark Fowler wrote: > > 3. Um, licencing of borrowed code (see AUTHOR) > > Take whatever you like. In fact, if you don't mind, I'd like to > distribute this with Test::Builder/More/Simple so I can use it to test > all that.
Thanks. Yeah, distribute it with Test::Builder. It makes my life easier as it's one less module that I have to worry about being installed. > > 4. Does this work on older perls...I don't see any reason why not, but > > I've only tested it on 5.6.1 > > I'll beat on it with my battery of perls. Excellent. > Only suggestion is this: > > [saving and restoring the output filehandles] The code has been updated to do that, tests added to check that it's working, etc. I simply didn't realise that $t->output and co were get methods as well as set. Version 0.04 with restoring of output handles, slightly tidier documentation (with updated licencing,) checking that you're not test_testing before predeclaring, and more tests uploaded to the same place: http://2shortplanks.com/temp/tbt/ Mark. -- s'' Mark Fowler London.pm Bath.pm http://www.twoshortplanks.com/ [EMAIL PROTECTED] ';use Term'Cap;$t=Tgetent Term'Cap{};print$t->Tputs(cl);for$w(split/ +/ ){for(0..30){$|=print$t->Tgoto(cm,$_,$y)." $w";select$k,$k,$k,.03}$y+=2}
