diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2008-07-02 08:34:11 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2008-07-02 08:34:11 +0000 |
| commit | 013b6c79aae9b51574a9c205a55833e206770b1c (patch) | |
| tree | e46a45ae0e3aa6d1bd50aa157260564ab159c5fb /solenv/bin/modules/pre2par | |
| parent | 93066dc04283575754d05f3239e08c76bc8c6240 (diff) | |
INTEGRATION: CWS sb90 (1.11.114); FILE MERGED
2008/06/26 08:45:31 sb 1.11.114.1: #157787# split lines only at semicolons outside of string literals
Diffstat (limited to 'solenv/bin/modules/pre2par')
| -rw-r--r-- | solenv/bin/modules/pre2par/work.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/solenv/bin/modules/pre2par/work.pm b/solenv/bin/modules/pre2par/work.pm index c66c69b41a37..d94bb8c3101c 100644 --- a/solenv/bin/modules/pre2par/work.pm +++ b/solenv/bin/modules/pre2par/work.pm @@ -8,7 +8,7 @@ # # $RCSfile: work.pm,v $ # -# $Revision: 1.11 $ +# $Revision: 1.12 $ # # This file is part of OpenOffice.org. # @@ -49,7 +49,7 @@ sub split_line { my ($line, $parfile) = @_; - while ( $line =~ /^(.*?\;\s+)\s*(.*)$/ ) + while ( $line =~ /^((?:[^"]|\"(?:[^"\\]|\\.)*\")*?\;\s+)\s*(.*)$/ ) { my $oneline = $1; $line = $2; |