/[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 37 by dpavlin, Fri Sep 7 17:16:48 2007 UTC revision 38 by dpavlin, Fri Sep 7 17:18:53 2007 UTC
# Line 230  sub entries($) { Line 230  sub entries($) {
230          my $dir = shift;          my $dir = shift;
231          die "entries expects directory argument!" unless -d $dir;          die "entries expects directory argument!" unless -d $dir;
232          my @entries;          my @entries;
233          open(my $fh, "$dir/CVS/Entries") || return 0;          open(my $fh, "./$dir/CVS/Entries") || return 0;
234          while(<$fh>) {          while(<$fh>) {
235                  if ( m{^D/([^/]+)}, ) {                  if ( m{^D/([^/]+)}, ) {
236                          my $sub_dir = $1;                          my $sub_dir = $1;
# Line 257  sub in_entries($) { Line 257  sub in_entries($) {
257                          $dir .= "/";                          $dir .= "/";
258                  }                  }
259    
260                  open(my $fh, "$dir/CVS/Entries") || return 0; #die "no entries file: $dir/CVS/Entries";                  open(my $fh, "./$dir/CVS/Entries") || return 0; #die "no entries file: $dir/CVS/Entries";
261                  while(<$fh>) {                  while(<$fh>) {
262                          return 1 if (m{^/$file/});                          return 1 if (m{^/$file/});
263                  }                  }
Legend:
Removed from v.37  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.26