[freeside-commits] freeside/FS/FS msg_template.pm,1.6,1.7

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv16327/FS/FS

Modified Files:
	msg_template.pm 
Log Message:
fix warning

Index: msg_template.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/msg_template.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -d -r1.6 -r1.7
--- msg_template.pm	30 Jul 2010 22:08:54 -0000	1.6
+++ msg_template.pm	30 Jul 2010 22:26:39 -0000	1.7
@@ -425,12 +425,13 @@
   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 '{' ) {