From 6cbf9bb26cbe45caad61d64db1d8cc062c7b38f5 Mon Sep 17 00:00:00 2001 From: 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.43.0