diff options
| author | Jens-Heiner Rechtien <hr@openoffice.org> | 2003-03-27 10:48:49 +0000 |
|---|---|---|
| committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2003-03-27 10:48:49 +0000 |
| commit | eb62b06be2da4592da0bedf2e8814bcf0f691905 (patch) | |
| tree | b02b60f60a84ca5c59eba60995ecee2bd49dfff4 /solenv/bin/mapgen.pl | |
| parent | b57fee8153ab7bb8a2fdc2a12a5ccc0c0927d6f4 (diff) | |
MWS_SRX644: migrate branch mws_srx644 -> HEAD
Diffstat (limited to 'solenv/bin/mapgen.pl')
| -rw-r--r-- | solenv/bin/mapgen.pl | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/solenv/bin/mapgen.pl b/solenv/bin/mapgen.pl index f6f938af9a77..541a4c623717 100644 --- a/solenv/bin/mapgen.pl +++ b/solenv/bin/mapgen.pl @@ -5,9 +5,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: mapgen.pl,v $ # -# $Revision: 1.2 $ +# $Revision: 1.3 $ # -# last change: $Author: kz $ $Date: 2002-04-10 09:59:52 $ +# last change: $Author: hr $ $Date: 2003-03-27 11:47:52 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -74,7 +74,7 @@ eval 'exec perl -wS $0 ${1+"$@"}' ( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; -$id_str = ' $Revision: 1.2 $ '; +$id_str = ' $Revision: 1.3 $ '; $id_str =~ /Revision:\s+(\S+)\s+\$/ ? ($script_rev = $1) : ($script_rev = "-"); @@ -167,14 +167,8 @@ sub filter_symbols { while (<FLT_FILE>) { s/\r//; s/\n//; - if ((/^# SOLARIS #$/) && ($ENV{OS} eq 'SOLARIS')) { - $env_section = '1'; - next; - }; - if ((/^# LINUX #$/) && ($ENV{OS} eq 'LINUX')) { - $env_section = '1'; - next; - }; + $env_section = '1' and next if ((/^# SOLARIS #$/) && ($ENV{OS} eq 'SOLARIS')); + $env_section = '1' and next if ((/^# LINUX #$/) && ($ENV{OS} eq 'LINUX')); last if ($env_section && ((/^# SOLARIS #$/) || (/^# LINUX #$/))); next if (!$_ || /^#/); push(@filters, $_); |