X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;h=47b87dac8a6fcfd8cf82af6f687a37f6036f566f;hb=b1de8d406cf0b76292d401c4b75f33fca86a822d;hp=a9c521708bc1ddb4fbfdac36d3980a8e1aa84730;hpb=b67b50de92dbf61ce939b42f7c74e30dc58eba41;p=spider.git

diff --git a/perl/Route.pm b/perl/Route.pm
index a9c52170..47b87dac 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -166,6 +166,11 @@ sub config
 	return @out;
 }
 
+#
+# routing things
+#
+
+
 #
 # track destruction
 #
@@ -187,7 +192,8 @@ sub fields
 {
 	my $pkg = shift;
 	$pkg = ref $pkg if ref $pkg;
-	my @out, keys %$pkg::valid;
+    my $val = "${pkg}::valid";
+	my @out = keys %$val;
 	push @out, keys %valid;
 	return @out;
 }
@@ -200,7 +206,8 @@ sub field_prompt
 { 
 	my ($self, $ele) = @_;
 	my $pkg = ref $self;
-	return $pkg::valid{$ele} || $valid{$ele};
+    my $val = "${pkg}::valid";
+	return $val->{$ele} || $valid{$ele};
 }
 
 #