At 18.24 -0500 1998.12.16, Greenblatt & Seay wrote: >I hope someone finds this helpful. Nifty idea, thanks. A couple of suggestions: * Change the /text clipping/ check to: if (MacPerl::GetFileInfo($ARGV[0]) eq 'clpt') { My clippings, like from Eudora and NewsWatcher, do not always have the text "text clipping" in the name. * There's a bug where you have if () { } elsif () { } } else { } ^^^ Too many }'s. -- Chris Nandor mailto:pudge@pobox.com http://pudge.net/ %PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6']) ***** Want to unsubscribe from this list? ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch