From 9a3c41647921a725f6f21dac11815e8af7d21492 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Wed, 10 Jul 2002 22:16:12 +0000
Subject: Fixed a stupid syntax bug

---
 Echolot/Tools.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Echolot/Tools.pm')

diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm
index 17a5980..36cf4cd 100644
--- a/Echolot/Tools.pm
+++ b/Echolot/Tools.pm
@@ -1,7 +1,7 @@
 package Echolot::Tools;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Tools.pm,v 1.4 2002/07/10 21:46:28 weasel Exp $
+# $Id: Tools.pm,v 1.5 2002/07/10 22:16:12 weasel Exp $
 #
 
 =pod
@@ -116,6 +116,8 @@ sub send_message(%) {
 	};
 	$args{'Subject'} = 'none' unless (defined $args{'Subject'});
 	
+	my @lines = map { $_."\n" } split (/\r?\n/, $args{'Body'});
+
 	open(SENDMAIL, '|'.Echolot::Config::get()->{'sendmail'}.' -f '.$args{'From'}.' -t')
 		or cluck("Cannot run sendmail: $!"),
 		return 0;
-- 
cgit v1.2.3