406eab7aa09da9df787a964d3c152c0bda6e23c4 775 B

1234567891011121314151617181920212223242526272829
  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. ... to fix test-suite failure with perl-5.26.0
  6. Bug: https://bugzilla.redhat.com/1473853
  7. ---
  8. test/run | 2 +-
  9. 1 file changed, 1 insertion(+), 1 deletion(-)
  10. diff --git a/test/run b/test/run
  11. index 4b1f8d0..07e916c 100755
  12. --- a/test/run
  13. +++ b/test/run
  14. @@ -106,7 +106,7 @@ for (;;) {
  15. if (defined $line) {
  16. # Substitute %VAR and %{VAR} with environment variables.
  17. $line =~ s[%(\w+)][$ENV{$1}]eg;
  18. - $line =~ s[%{(\w+)}][$ENV{$1}]eg;
  19. + $line =~ s[%\{(\w+)}][$ENV{$1}]eg;
  20. }
  21. if (defined $line) {
  22. if ($line =~ s/^\s*< ?//) {
  23. --
  24. cgit v1.0-41-gc330