projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a95bfdb
)
fix warning
author
mark
<mark>
Fri, 30 Jul 2010 22:26:39 +0000
(22:26 +0000)
committer
mark
<mark>
Fri, 30 Jul 2010 22:26:39 +0000
(22:26 +0000)
FS/FS/msg_template.pm
patch
|
blob
|
history
diff --git
a/FS/FS/msg_template.pm
b/FS/FS/msg_template.pm
index
c6622b1
..
7d507f4
100644
(file)
--- 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 $depth = 0;
my $chunk = '';
while($body || $chunk) {
+ my ($first, $delim, $rest);
# put all leading non-delimiters into $first
# 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
($body =~ /^((?:\\[{}]|[^{}])*)(.*)$/s);
$chunk .= $first;
# put a leading delimiter into $delim if there is one
-
my
($delim, $rest) =
+ ($delim, $rest) =
($rest =~ /^([{}]?)(.*)$/s);
if( $delim eq '{' ) {
($rest =~ /^([{}]?)(.*)$/s);
if( $delim eq '{' ) {