diff options
author | Oliver Bolte <obo@openoffice.org> | 2005-11-17 15:35:52 +0000 |
---|---|---|
committer | Oliver Bolte <obo@openoffice.org> | 2005-11-17 15:35:52 +0000 |
commit | 49c4147d1434042eafc15a789fbc1a969aa37f31 (patch) | |
tree | 34b74e30ca69fa183c5262b166a80be8979aa7d7 /solenv/bin/modules/pre2par | |
parent | b493b96f9736be3d6fb438701d41cb0ec96d17cd (diff) |
INTEGRATION: CWS native26 (1.5.108); FILE MERGED
2005/11/16 17:39:43 is 1.5.108.1: #128005# new scp syntax check
Diffstat (limited to 'solenv/bin/modules/pre2par')
-rw-r--r-- | solenv/bin/modules/pre2par/work.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/solenv/bin/modules/pre2par/work.pm b/solenv/bin/modules/pre2par/work.pm index 3414fa43f7ce..ba46c14e82e0 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.5 $ +# $Revision: 1.6 $ # -# last change: $Author: rt $ $Date: 2005-09-08 09:32:52 $ +# last change: $Author: obo $ $Date: 2005-11-17 16:35:52 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -134,12 +134,18 @@ sub convert # searching for lines with brackets, like Customs = { ..., which can be parted above several lines - if ( $oneline =~ /^\s*\w+ \s+\=\s*\(.*\)\s*\;\s*$/ ) # only one line + 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*\w+\s+\=\s*$/ ) + { + $oneline =~ s/\s*$//; + pre2par::exiter::exit_program("Error: Illegal syntax, no line break after eqals sign allowed. Line: \"$oneline\"", "convert"); + } + if (( $oneline =~ /^\s*\w+\s+\=\s*\(/ ) && (!( $oneline =~ /\)\s*\;\s*$/ ))) # several lines { $ismultiliner = 1; |