/[svn2cvs]/trunk/svn2cvs.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 /trunk/svn2cvs.pl

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

revision 46 by dpavlin, Sun Sep 23 22:46:53 2007 UTC revision 47 by dpavlin, Fri Nov 2 12:11:31 2007 UTC
# Line 104  sub add_dir($$) { Line 104  sub add_dir($$) {
104                  next if in_entries($curr_dir);                  next if in_entries($curr_dir);
105                  next if ( -e "$curr_dir/CVS" );                  next if ( -e "$curr_dir/CVS" );
106    
107                  log_system( "$cvs add '$curr_dir'", "cvs add of $curr_dir failed" );                  log_system( "touch '$curr_dir/.keepme'", "creation of .keepme file (to keep $curr_dir alive in CVS) failed" );
108                    log_system( "$cvs add '$curr_dir' '$curr_dir/.keepme'", "cvs add of $curr_dir failed" );
109          }          }
110  }  }
111    
# Line 262  sub in_entries($) { Line 263  sub in_entries($) {
263                  open( my $fh, "./$dir/CVS/Entries" )                  open( my $fh, "./$dir/CVS/Entries" )
264                          || return 0;    #die "no entries file: $dir/CVS/Entries";                          || return 0;    #die "no entries file: $dir/CVS/Entries";
265                  while (<$fh>) {                  while (<$fh>) {
266                          return 1 if (m{^/$file/});                          return 1 if (m{^D?/$file/});
267                  }                  }
268                  close($fh);                  close($fh);
269                  return 0;                  return 0;
Legend:
Removed from v.46  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.26