From 0a8742bc3375d39ef4dde8df5e28b194af642b5c Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 1 Jan 2018 17:19:27 -0800 Subject: [PATCH] switch back to using viscomponent because $component is read-only --- examples/debian/versions/build-versions-db | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 -- 2.39.2