passes syntax but xchat crashes

["D. Hoyem" <youto_22554@yahoo.com>]

Hi all,
  First off I'm a newbie with perl and what I'm trying
to do is write a perl script for xchat that will play
popups like mIRC and Pirch does with a nick in them.
The space for the nick is 9 characters long and this
is a portion of the script that I've done.  If I do
the perl -c myscript.pl it passes with out any syntax
errors, but as soon as I try and run it, xchat
shutsdown.  I think that my error is in the "   
'$nick'    "); area but could ue some comments/help

sub talk_handler {
  $msg = shift(@_);
  $nick = $msg;
  if (length ($nick) > 9) {
	then (length ($nick) eq "'$nick'");}
elsif (length ($nick) == 0) {
	then (length ($nick) eq "    '$nick'     ");}
elsif (length ($nick) == 1) {
	then (length ($nick) eq "    '$nick'    ");}
elsif (length ($nick) == 2) {
	then (length ($nick) eq "   '$nick'    ");}
etc.
Thanks in advance for your help.
Don

__________________________________________________
Do You Yahoo!?
Kick off your party with Yahoo! Invites.
http://invites.yahoo.com/
-
XChat-discuss: mailing list for XChat users
Archive:       http://mail.nl.linux.org/lists/
Posted By:     "D. Hoyem" <youto_22554@yahoo.com>