On Tue, Mar 18, 2014 at 11:08:42AM -0400, Peter Harris wrote: > The perl mongers have retroactively marked this construct > "experimental", five and a half years after it was marked stable. > > http://perldoc.perl.org/perl5180delta.html#The-smartmatch-family-of-features-are-now-experimental > > Signed-off-by: Peter Harris <[email protected]>
Acked-by: Peter Hutterer <[email protected]> Cheers, Peter > --- > xts5/bin/xts-config.in | 13 +++++++++---- > 1 file changed, 9 insertions(+), 4 deletions(-) > > diff --git a/xts5/bin/xts-config.in b/xts5/bin/xts-config.in > index dbe84da..2dbe653 100755 > --- a/xts5/bin/xts-config.in > +++ b/xts5/bin/xts-config.in > @@ -1,6 +1,5 @@ > #!/usr/bin/perl -pi.bak > > -use 5.10.0; > use warnings; > use strict; > use Sys::Hostname; > @@ -136,10 +135,16 @@ BEGIN > > $::vars{"XT_PIXMAP_DEPTHS"} =~ s/,?\s+/ /g; > > - given ($::vars{XT_DOES_BACKING_STORE}) > + if ($::vars{XT_DOES_BACKING_STORE} =~ /yes/i) > + { > + $::vars{XT_DOES_BACKING_STORE} = 2; > + } > + elsif ($::vars{XT_DOES_BACKING_STORE} =~ /no/i) > + { > + $::vars{XT_DOES_BACKING_STORE} = 1; > + } > + else > { > - $::vars{XT_DOES_BACKING_STORE} = 2 when (/yes/i); > - $::vars{XT_DOES_BACKING_STORE} = 1 when (/when/i); > $::vars{XT_DOES_BACKING_STORE} = 0; > } > > -- > 1.9.0 > > _______________________________________________ > [email protected]: X.Org development > Archives: http://lists.x.org/archives/xorg-devel > Info: http://lists.x.org/mailman/listinfo/xorg-devel > _______________________________________________ [email protected]: X.Org development Archives: http://lists.x.org/archives/xorg-devel Info: http://lists.x.org/mailman/listinfo/xorg-devel
