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

Comparing COMP/SCRAM/src/Cache/Cache.pm (file contents):
Revision 1.6 by sashby, Thu Aug 18 15:03:44 2005 UTC vs.
Revision 1.7 by sashby, Mon Sep 11 13:48:33 2006 UTC

# Line 296 | Line 296 | sub checkfiles()
296     # Get list of files in config dir:
297     my $configcache = {};
298     my %configfiles = map { -f $_ &&
299 <                              $_ =~ m|$ENV{LOCALTOP}/$ENV{SCRAM_CONFIGDIR}.*?$|
299 >                              $_ =~ m|\Q$ENV{LOCALTOP}\E/$ENV{SCRAM_CONFIGDIR}.*?$|
300                                ? ($_ => [ (stat(_))[9] ]) : () } keys %{$self->{DIRCACHE}};
301  
302     # Also add ToolCache.db to the cache: FIXME: should probably use aglob here so
# Line 562 | Line 562 | sub paths()
562     # storing those that are relevant to an array:
563     foreach my $path (keys %{$self->{DIRCACHE}})
564        {
565 <      if ( ! -d $path && $path != m|$ENV{LOCALTOP}/$ENV{SCRAM_CONFIGDIR}.*?$|)
565 >      if ( ! -d $path && $path != m|\Q$ENV{LOCALTOP}\E/$ENV{SCRAM_CONFIGDIR}.*?$|)
566           {      
567           $self->logmsg("SCRAM: $path no longer exists. Clearing from cache.\n");
568           $self->cachestatus(1);

Diff Legend

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