fix the field lists

diff --git a/perl/Route.pm b/perl/Route.pm
index a9c521708bc1ddb4fbfdac36d3980a8e1aa84730..0ebb365ca66c755767578cf9393431a539b10a6a 100644 (file)
--- 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};
 }
 
 #