/[pliva-si]/.data/save_perm.pl
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 /.data/save_perm.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by dpavlin, Wed Nov 21 10:15:15 2001 UTC revision 1.5 by dpavlin, Wed Nov 21 10:16:13 2001 UTC
# Line 6  my @dirs = ("/data/pliva-si"); Line 6  my @dirs = ("/data/pliva-si");
6    
7  while (@dirs) {  while (@dirs) {
8          my $curr_dir=shift @dirs;          my $curr_dir=shift @dirs;
9          opendir(DIR,$curr_dir) || die "opendir: $!";          opendir(DIR,$curr_dir) || warn "opendir: $!";
10          my @ignore = ('.', '..', 'CVS');          my @ignore = ('.', '..', 'CVS');
11          if (-f "$curr_dir/.cvsignore") {          if (-f "$curr_dir/.cvsignore") {
12                  open(I,"$curr_dir/.cvsignore");                  open(I,"$curr_dir/.cvsignore");
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.26