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