diff options
| author | Oliver Bolte <obo@openoffice.org> | 2005-12-21 11:50:03 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2005-12-21 11:50:03 +0000 |
| commit | c2032f21d4895841c9394c2bc7fe88734afcb0fe (patch) | |
| tree | 238c62ef9d4653f0d09839f38e93c14c8720004a /solenv/bin/modules/pre2par | |
| parent | 7b28b6b3999457a9851b18af45325a764b0021f1 (diff) | |
INTEGRATION: CWS nativefixer21 (1.6.4); FILE MERGED
2005/12/15 17:32:23 is 1.6.4.1: #i54688# no removal of whitespaces for assignments
Diffstat (limited to 'solenv/bin/modules/pre2par')
| -rw-r--r-- | solenv/bin/modules/pre2par/work.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/solenv/bin/modules/pre2par/work.pm b/solenv/bin/modules/pre2par/work.pm index ba46c14e82e0..5295c7ddd39c 100644 --- a/solenv/bin/modules/pre2par/work.pm +++ b/solenv/bin/modules/pre2par/work.pm @@ -4,9 +4,9 @@ # # $RCSfile: work.pm,v $ # -# $Revision: 1.6 $ +# $Revision: 1.7 $ # -# last change: $Author: obo $ $Date: 2005-11-17 16:35:52 $ +# last change: $Author: obo $ $Date: 2005-12-21 12:50:03 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -136,8 +136,11 @@ sub convert if ( $oneline =~ /^\s*\w+\s+\=\s*\(.*\)\s*\;\s*$/ ) # only one line { - $oneline =~ s/\s//g; # removing whitespaces in lists - $oneline =~ s/\=/\ \=\ /; # adding whitespace around equals sign + if ( ! ( $oneline =~ /^\s*Assignment\d+\s*\=/ )) + { + $oneline =~ s/\s//g; # removing whitespaces in lists + $oneline =~ s/\=/\ \=\ /; # adding whitespace around equals sign + } } if ( $oneline =~ /^\s*\w+\s+\=\s*$/ ) |