X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=examples%2Fdebian%2Fversions%2Fbuild-versions-db;h=70b7b927045bfe53379ffee328fece60d3bda500;hb=0a8742bc3375d39ef4dde8df5e28b194af642b5c;hp=d4edbea759c447ba07c5122fe7eb9e21cf171c4d;hpb=ba2e9b7449c9ed048c013e60553698ea4119e49b;p=debbugs.git

diff --git a/examples/debian/versions/build-versions-db b/examples/debian/versions/build-versions-db
index d4edbea..70b7b92 100755
--- a/examples/debian/versions/build-versions-db
+++ b/examples/debian/versions/build-versions-db
@@ -200,14 +200,15 @@ for my $suite (@{$suites}) {
 
 	# debian-installer is really a section rather than a component
 	# (ugh).
-	$component =~ s[/.*][];
+	my $viscomponent = $component;
+	$viscomponent =~ s[/.*][];
 
 	my $sources = (grep { -f $_ } glob "$componentdir/source/Sources.*")[0];
 	if (not defined $sources) {
 	    print STDERR "No sources matching $componentdir/source/Sources.*\n" if $DEBUG;
 	    next;
 	}
-	read_packages($db,$db2,$sources, $component,'source',$suite);
+	read_packages($db,$db2,$sources, $viscomponent,'source',$suite);
 
 	for my $arch (readdir $COMPONENT) {
 	    next unless $arch =~ s/^binary-//;
@@ -218,7 +219,7 @@ for my $suite (@{$suites}) {
 		print STDERR "No binary packages matching $archdir/Packages.*\n" if $DEBUG;
 		next;
 	    }
-	    read_packages($db,$db2,$packages, $component,$arch,$suite);
+	    read_packages($db,$db2,$packages, $viscomponent,$arch,$suite);
 	}
 
 	closedir $COMPONENT or