patches/attr/406eab7aa09da9df787a964d3c152c0bda6e23c4

   1 From 406eab7aa09da9df787a964d3c152c0bda6e23c4 Mon Sep 17 00:00:00 2001
   2 From: Troy Dawson <tdawson@redhat.com>
   3 Date: Mon, 24 Jul 2017 14:42:06 +0200
   4 Subject: test: escape left brace in a regex in test/run
   5
   6 ... to fix test-suite failure with perl-5.26.0
   7
   8 Bug: https://bugzilla.redhat.com/1473853
   9 ---
  10  test/run | 2 +-
  11  1 file changed, 1 insertion(+), 1 deletion(-)
  12
  13 diff --git a/test/run b/test/run
  14 index 4b1f8d0..07e916c 100755
  15 --- a/test/run
  16 +++ b/test/run
  17 @@ -106,7 +106,7 @@ for (;;) {
  18    if (defined $line) {
  19      # Substitute %VAR and %{VAR} with environment variables.
  20      $line =~ s[%(\w+)][$ENV{$1}]eg;
  21 -    $line =~ s[%{(\w+)}][$ENV{$1}]eg;
  22 +    $line =~ s[%\{(\w+)}][$ENV{$1}]eg;
  23    }
  24    if (defined $line) {
  25      if ($line =~ s/^\s*< ?//) {
  26 --
  27 cgit v1.0-41-gc330
  28