In postfixes db's, store empty prefix as '^' to work around weird split

behaviour

diff --git a/bin/parse-packages b/bin/parse-packages
index 4fd7e346113955634e25bde914faeed5dea12fc9..8b132abee525dab852b3c4af3d233ed52b3426b3 100755 (executable)
--- a/bin/parse-packages
+++ b/bin/parse-packages
@@ -168,6 +168,7 @@ for my $pkg (keys %package_names) {
        for (my $i=0;$i<length($pkg)-1;$i++) {
                my $before = substr($pkg, 0, $i);
                my $after = substr($pkg, $i);
        for (my $i=0;$i<length($pkg)-1;$i++) {
                my $before = substr($pkg, 0, $i);
                my $after = substr($pkg, $i);

+               $before = "^" if $before eq ""; # otherwise split doesn't work properly

                $package_postfixes{$after} .= "$before\0";
        }
 }
                $package_postfixes{$after} .= "$before\0";
        }
 }

diff --git a/bin/parse-sources b/bin/parse-sources
index 91e8ad54d202d7d422e8dc8a10a02c451b256548..63eda09c28878304aa56ec937a66b4bf99007c26 100755 (executable)
--- a/bin/parse-sources
+++ b/bin/parse-sources
@@ -89,6 +89,7 @@ for my $pkg (keys %source_names) {
        for (my $i=0;$i<length($pkg)-1;$i++) {
                my $before = substr($pkg, 0, $i);
                my $after = substr($pkg, $i);
        for (my $i=0;$i<length($pkg)-1;$i++) {
                my $before = substr($pkg, 0, $i);
                my $after = substr($pkg, $i);

+               $before = "^" if $before eq ""; # otherwise split doesn't work properly

                $source_postfixes{$after} .= "$before\0";
        }
 }
                $source_postfixes{$after} .= "$before\0";
        }
 }