[interchange-cvs] interchange - heins modified code/UserTag/email.tag

[interchange-core@interchange.redhat.com]

User:      heins
Date:      2002-02-03 21:58:16 GMT
Modified:  code/UserTag email.tag
Log:
	* Merge change from stable (remove archaic split use, add error check)

Revision  Changes    Path
1.3       +1 -1      interchange/code/UserTag/email.tag


rev 1.3, prev_rev 1.2
Index: email.tag
===================================================================
RCS file: /anon_cvs/repository/interchange/code/UserTag/email.tag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- email.tag	2 Feb 2002 21:39:25 -0000	1.2
+++ email.tag	3 Feb 2002 21:58:16 -0000	1.3
@@ -18,7 +18,7 @@
 	}
 	$extra =~ s/\s*$/\n/ if $extra;
         $extra .= "From: $from\n" if $from;
-	@extra = split('\n', $extra);
+	@extra = grep /\S/, split(/\n/, $extra);
 
     SEND: {
             $ok = send_mail($to, $subject, $body, $reply, 0, @extra);