From eb79b08d2091d9e311515da043037a2f0c7fdf00 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 16 Oct 2002 14:07:35 +0000
Subject: 4.5-3mdk

---
 gendistrib | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'gendistrib')

diff --git a/gendistrib b/gendistrib
index 8a20e4c..149da3d 100755
--- a/gendistrib
+++ b/gendistrib
@@ -54,23 +54,24 @@ clean_cache();
 
 for (0..$#hdlists) {
     my $e = $hdlists[$_];
+    my $r;
 
     #- try to find the right repository where can be found the directory
     #- listed in the hdlist file.
     #- if the number of root is equal the number of medium, assume a medium
     #- foreach root, else try to find a valid root containing the medium.
     if (scalar(@hdlists ) == scalar(@root)) {
-	$root = $root[$_];
+	$r = $root[$_];
     } else {
 	foreach (@root) {
-	    -d "$_/$e->{dir}" and $root = $_, last;
+	    -d "$_/$e->{dir}" and $r = $_, last;
 	}
     }
-    -d "$root/$e->{dir}" or die "unable to find a valid root directory which contains $e->{dir}\n";
+    -d "$r/$e->{dir}" or die "unable to find a valid root directory which contains $e->{dir}\n";
 
-    print STDERR "parsing rpm files in directory $root/$e->{dir}\n";
+    print STDERR "parsing rpm files in directory $r/$e->{dir}\n";
     my @headers = $urpm->parse_rpms_build_headers(dir  => $headers_dir,
-						  rpms => [ glob("$root/$e->{dir}/*.rpm") ]);
+						  rpms => [ glob("$r/$e->{dir}/*.rpm") ]);
     $e->{headers} = \@headers;
 }
 
-- 
cgit v1.2.1