From aa4d239c957f56aaf8f663ed9e3036477ae91b22 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Fri, 30 Jul 2010 22:26:39 +0000
Subject: [PATCH] fix warning

---
 FS/FS/msg_template.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/FS/FS/msg_template.pm b/FS/FS/msg_template.pm
index c6622b1db..7d507f4fb 100644
--- a/FS/FS/msg_template.pm
+++ b/FS/FS/msg_template.pm
@@ -425,12 +425,13 @@ sub eviscerate {
   my $depth = 0;
   my $chunk = '';
   while($body || $chunk) {
+    my ($first, $delim, $rest);
     # put all leading non-delimiters into $first
-    my ($first, $rest) =
+    ($first, $rest) =
         ($body =~ /^((?:\\[{}]|[^{}])*)(.*)$/s);
     $chunk .= $first;
     # put a leading delimiter into $delim if there is one
-    my ($delim, $rest) =
+    ($delim, $rest) =
       ($rest =~ /^([{}]?)(.*)$/s);
 
     if( $delim eq '{' ) {
-- 
2.11.0