--- deliantra/server/lib/cf.pm	2007/01/20 01:12:39	1.186
+++ deliantra/server/lib/cf.pm	2007/01/20 21:06:52	1.187
@@ -1142,18 +1142,26 @@
    )
 }
 
+=item cf::map->register ($regex, $prio)
+
+Register a handler for the map path matching the given regex at the
+givne priority (higher is better, built-in handlers have priority 0, the
+default).
+
+=cut
+
 sub register {
-   my (undef, $regex) = @_;
+   my (undef, $regex, $prio) = @_;
    my $pkg = caller;
 
    no strict;
    push @{"$pkg\::ISA"}, __PACKAGE__;
 
-   $EXT_MAP{$pkg} = qr<$regex>;
+   $EXT_MAP{$pkg} = [$prio, qr<$regex>];
 }
 
 # also paths starting with '/'
-$EXT_MAP{"cf::map"} = qr{^(?=/)};
+$EXT_MAP{"cf::map"} = [0, qr{^(?=/)}];
 
 sub thawer_merge {
    my ($self, $merge) = @_;
@@ -1206,8 +1214,8 @@
 
    $path = normalise $path, $base;
 
-   for my $pkg (keys %EXT_MAP) {
-      if ($path =~ $EXT_MAP{$pkg}) {
+   for my $pkg (sort { $EXT_MAP{$b}[0] <=> $EXT_MAP{$a}[0] } keys %EXT_MAP) {
+      if ($path =~ $EXT_MAP{$pkg}[1]) {
          my $self = bless cf::map::new, $pkg;
          $self->{path} = $path; $self->path ($path);
          $self->init; # pass $1 etc.