/[webpac2]/trunk/lib/WebPAC/Config.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Config.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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};
Legend:
Removed from v.682  
changed lines
  Added in v.683
  ViewVC Help
Powered by ViewVC 1.1.26