Parent Directory | Revision Log | Patch
revision 682 by dpavlin, Sun Sep 24 15:28:54 2006 UTC | revision 683 by dpavlin, Sun Sep 24 15:53:49 2006 UTC | |
---|---|---|
# | Line 117 sub webpac { | Line 117 sub webpac { |
117 | ||
118 | my $what = shift || return $self->{config}->{webpac}; | my $what = shift || return $self->{config}->{webpac}; |
119 | ||
120 | if (wantarray) { | if (wantarray && ref( $self->{config}->{webpac}->{$what} ) eq 'HASH') { |
121 | return keys %{ $self->{config}->{webpac}->{$what} }; | return keys %{ $self->{config}->{webpac}->{$what} }; |
122 | } else { | } else { |
123 | return $self->{config}->{webpac}->{$what}; | return $self->{config}->{webpac}->{$what}; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |