diff options
author | mark <mark> | 2010-07-30 22:26:39 +0000 |
---|---|---|
committer | mark <mark> | 2010-07-30 22:26:39 +0000 |
commit | aa4d239c957f56aaf8f663ed9e3036477ae91b22 (patch) | |
tree | 859b87902668b7548d887e721ee08fce80f46942 /FS/FS/msg_template.pm | |
parent | a95bfdb0174c66cbf8444967efcd04cb638d727c (diff) |
fix warning
Diffstat (limited to 'FS/FS/msg_template.pm')
-rw-r--r-- | FS/FS/msg_template.pm | 5 |
1 files 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 '{' ) { |