switch back to using viscomponent because $component is read-only

diff --git a/examples/debian/versions/build-versions-db b/examples/debian/versions/build-versions-db
index d4edbea759c447ba07c5122fe7eb9e21cf171c4d..70b7b927045bfe53379ffee328fece60d3bda500 100755 (executable)
--- 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