In postfixes db's, store empty prefix as '^' to work around weird split
authorJeroen van Wolffelaar <jeroen@wolffelaar.nl>
Thu, 2 Feb 2006 01:02:23 +0000 (01:02 +0000)
committerJeroen van Wolffelaar <jeroen@wolffelaar.nl>
Thu, 2 Feb 2006 01:02:23 +0000 (01:02 +0000)
behaviour

bin/parse-packages
bin/parse-sources

index 4fd7e346113955634e25bde914faeed5dea12fc9..8b132abee525dab852b3c4af3d233ed52b3426b3 100755 (executable)
@@ -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);
+               $before = "^" if $before eq ""; # otherwise split doesn't work properly
                $package_postfixes{$after} .= "$before\0";
        }
 }
index 91e8ad54d202d7d422e8dc8a10a02c451b256548..63eda09c28878304aa56ec937a66b4bf99007c26 100755 (executable)
@@ -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);
+               $before = "^" if $before eq ""; # otherwise split doesn't work properly
                $source_postfixes{$after} .= "$before\0";
        }
 }