projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
273bb15
)
fix the field lists
author
minima
<minima>
Wed, 6 Jun 2001 14:01:34 +0000
(14:01 +0000)
committer
minima
<minima>
Wed, 6 Jun 2001 14:01:34 +0000
(14:01 +0000)
perl/Route.pm
patch
|
blob
|
history
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 $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;
}
push @out, keys %valid;
return @out;
}
@@
-200,7
+201,8
@@
sub field_prompt
{
my ($self, $ele) = @_;
my $pkg = ref $self;
{
my ($self, $ele) = @_;
my $pkg = ref $self;
- return $pkg::valid{$ele} || $valid{$ele};
+ my $val = "${pkg}::valid";
+ return $val->{$ele} || $valid{$ele};
}
#
}
#