diff options
author | Peter Harris <pharris@opentext.com> | 2013-05-31 15:00:00 -0400 |
---|---|---|
committer | Peter Harris <pharris@opentext.com> | 2013-05-31 15:31:09 -0400 |
commit | 9fabd09def9622fc009b5557aeff3ff75719ad4b (patch) | |
tree | e8feb649e594513a544201464a1b80e20d08d760 | |
parent | 2c0b8ea68cbfa35883e0d41af4a3359e8f688601 (diff) |
Fix automatic configuration of BackingStores
xdpyinfo reports NO, WHEN MAPPED or YES, but XT_DOES_BACKING_STORE
expects a 0, 1, or 2.
Signed-off-by: Peter Harris <pharris@opentext.com>
-rwxr-xr-x | xts5/bin/xts-config.in | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/xts5/bin/xts-config.in b/xts5/bin/xts-config.in index e22ba56b..dbe84dad 100755 --- a/xts5/bin/xts-config.in +++ b/xts5/bin/xts-config.in @@ -1,5 +1,6 @@ #!/usr/bin/perl -pi.bak +use 5.10.0; use warnings; use strict; use Sys::Hostname; @@ -135,8 +136,15 @@ BEGIN $::vars{"XT_PIXMAP_DEPTHS"} =~ s/,?\s+/ /g; + given ($::vars{XT_DOES_BACKING_STORE}) + { + $::vars{XT_DOES_BACKING_STORE} = 2 when (/yes/i); + $::vars{XT_DOES_BACKING_STORE} = 1 when (/when/i); + $::vars{XT_DOES_BACKING_STORE} = 0; + } + foreach my $var (qw(TET_EXEC_IN_PLACE XT_EXTENSIONS - XT_DOES_BACKING_STORE XT_DOES_SAVE_UNDERS + XT_DOES_SAVE_UNDERS XT_POSIX_SYSTEM XT_TCP XT_LOCAL XT_SAVE_SERVER_IMAGE XT_OPTION_NO_CHECK XT_OPTION_NO_TRACE XT_DEBUG_OVERRIDE_REDIRECT XT_DEBUG_PAUSE_AFTER |