I haven't looked at your code, but I don't think a rewrite is in the spirit of helping beginners at Perl. It may occasionally be the best answer, but I suspect you're simply enjoying yourself here ;)
--As for the rest, it is mine.
Well, it's not a from-scratch rewrite. Mostly it's his code: I just took each section he had GOTO labeled, turned it into a subroutine, then handled some namespace issues (created by having separate namespaces), and added a wrapper calling loop.
As for enjoying myself, guilty as charged. ;-)
Daniel T. Staal
--------------------------------------------------------------- This email copyright the author. Unless otherwise noted, you are expressly allowed to retransmit, quote, or otherwise use the contents for non-commercial purposes. This copyright will expire 5 years after the author's death, or in 30 years, whichever is longer, unless such a period is in excess of local copyright law. ---------------------------------------------------------------
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
