ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/Configuration/ConfigArea.pm
(Generate patch)

Comparing COMP/SCRAM/src/Configuration/ConfigArea.pm (file contents):
Revision 1.16 by williamc, Thu Sep 21 13:52:07 2000 UTC vs.
Revision 1.17 by williamc, Thu Sep 21 14:25:06 2000 UTC

# Line 82 | Line 82 | sub cache {
82            }
83            $exist=1;
84          }
85 <        elsif ( ! defined $self->{cache} ) {
85 >        if ( ! defined $self->{cache} ) {
86            my $loc=$self->location()."/".$self->{admindir}."/".$self->{cachedir};
87 <          if ( ! $exist ) {
87 >          if (  !$exist || ( -e $loc ) ) {
88              $self->{cache}=URL::URLcache->new($loc);
89            }
90 +          else {
91 +            $self->{cache}=undef;
92 +          }
93          }
94          return $self->{cache};
95   }
# Line 102 | Line 105 | sub objectstore {
105            }
106            $exist="<";
107          }
108 <        elsif ( ! defined $self->{dbstore} ) {
108 >        if ( ! defined $self->{dbstore} ) {
109            my $loc=$self->location()."/".$self->{admindir}."/".$self->{dbdir};
110            $self->{dbstore}=ObjectUtilities::ObjectStore->new($exist.$loc);
111          }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines