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.3 by sashby, Fri Mar 11 18:55:28 2005 UTC vs.
Revision 1.4 by sashby, Tue Jun 28 19:08:55 2005 UTC

# Line 47 | Line 47 | sub getdir()
47     my $self=shift;
48     my ($path) = @_;
49     opendir (DIR, $path) || die "$path: cannot read: $!\n";
50 <   # Skip .admin subdirectories too.
50 >   # Skip .admin and CVS subdirectories too.
51     # Also skip files that look like backup files or files being modified with emacs:
52     my @items = map { "$path/$_" } grep (
53 <                                        $_ ne "." && $_ ne ".." &&
53 >                                        $_ ne "." && $_ ne ".." && $_ ne "CVS" &&
54                                          $_ ne ".admin" && $_ !~ m|\.#*|,
55                                          readdir(DIR)
56                                          );  
# Line 82 | Line 82 | sub checktree()
82     # non-directories unless $dofiles is set.  Considering only directories is
83     # dramatically faster.
84     next if ($path =~ /\.admin/); # skip .admin dirs
85 +   next if ($path =~ /.*CVS/);
86  
87     # NB: We stat each path only once ever.  The special "_" file handle uses
88     # the results from the last stat we've made.  See man perlfunc/stat.

Diff Legend

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