r961@llin: dpavlin | 2006-09-24 17:51:08 +0200

 $config->webpac returns config HASH

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@683 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Config.pm b/lib/WebPAC/Config.pm
index 49214b2..8058d79 100644 (file)
--- a/lib/WebPAC/Config.pm
+++ b/lib/WebPAC/Config.pm
@@ -117,7 +117,7 @@ sub webpac {
 
        my $what = shift || return $self->{config}->{webpac};
 
-       if (wantarray) {
+       if (wantarray && ref( $self->{config}->{webpac}->{$what} ) eq 'HASH') {
                return keys %{ $self->{config}->{webpac}->{$what} };
        } else {
                return $self->{config}->{webpac}->{$what};