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.

1 files changed, 1 insertions, 1 deletions

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 {