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.13.2.6.2.7.2.1 by williamc, Thu Sep 21 12:44:42 2000 UTC vs.
Revision 1.13.2.6.2.7.2.2 by williamc, Thu Sep 21 14:17:51 2000 UTC

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

Diff Legend

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