fix regexp for newer perl

The error was:
Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/%{ <-- HERE ARCH}/ at /usr/bin/gendistrib line 126.

2 files changed, 2 insertions, 1 deletions

diff --git a/NEWS b/NEWS
index 9399900..bf2da6f 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,6 @@
 - do not load file sizes from synthesis in non incremental mode (minor
   performance optimisation)
+- fix "Unescaped left brace in regex is illegal here in regex"
 
 Version 7.00 - 7 September 2014, by Thierry Vignaud
 
diff --git a/gendistrib b/gendistrib
index 1f0e0ea..6a2094c 100755
--- a/gendistrib
+++ b/gendistrib
@@ -123,7 +123,7 @@ foreach my $d ($infodir, map { "$_->{path}/media_info" } @hdlists) {
 }
 
 foreach my $e (@hdlists) {
-    if ($e->{dir} =~ /%{ARCH}/) {
+    if ($e->{dir} =~ /%\{ARCH\}/) {
 	die "sorry, %{ARCH} not supported anymore\n";
     }
     @{$e->{files}} = glob("$root/$e->{dir}/*.rpm") or do {