From: minima <minima>
Date: Wed, 6 Jun 2001 14:01:34 +0000 (+0000)
Subject: fix the field lists
X-Git-Tag: OLDROUTE_1_48~6
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=6cbf9bb26cbe45caad61d64db1d8cc062c7b38f5;p=spider.git

fix the field lists
---

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