From: mark <mark>
Date: Fri, 30 Jul 2010 22:26:39 +0000 (+0000)
Subject: fix warning
X-Git-Tag: root_of_svc_elec_features~1
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=aa4d239c957f56aaf8f663ed9e3036477ae91b22

fix warning
---

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 '{' ) {