X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute.pm;fp=perl%2FRoute.pm;h=0ebb365ca66c755767578cf9393431a539b10a6a;hb=6cbf9bb26cbe45caad61d64db1d8cc062c7b38f5;hp=a9c521708bc1ddb4fbfdac36d3980a8e1aa84730;hpb=273bb156dcab276845ac5984ccebfa2cc68b451a;p=spider.git

diff --git a/perl/Route.pm b/perl/Route.pm
index a9c52170..0ebb365c 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -187,7 +187,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 +201,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};
 }
 
 #