From 6cbf9bb26cbe45caad61d64db1d8cc062c7b38f5 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 6 Jun 2001 14:01:34 +0000
Subject: [PATCH] fix the field lists

---
 perl/Route.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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};
 }
 
 #
-- 
2.34.1