Improved a bit error reporting backtraces.
use Cwd qw(chdir fastgetcwd);
use Errno qw(ENOENT);
use File::Remove qw(remove);
use Cwd qw(chdir fastgetcwd);
use Errno qw(ENOENT);
use File::Remove qw(remove);
+use Carp qw(confess cluck croak carp);
use constant ENTRIES =>"CVS/Entries";
use constant CVSIGNORE=>".cvsignore";
use constant ENTRIES =>"CVS/Entries";
use constant CVSIGNORE=>".cvsignore";
my $errstr=$!;
$msg.=" in \"".fastgetcwd."\" (CVS \"$dir_dirname\")".($opts{"noerrno"} ? "" : ": $errstr");
my $errstr=$!;
$msg.=" in \"".fastgetcwd."\" (CVS \"$dir_dirname\")".($opts{"noerrno"} ? "" : ": $errstr");
- die $msg if $opt_fatal;
- warn $msg;
+ croak $msg if $opt_fatal;
+ carp $msg;
do { push @dir_dirs ,$1; next; } if m#^D/([^/]*)/#;
do { push @dir_dirs ,$1; next; } if m#^D/([^/]*)/#;
+ next if m#^/[^/]*/-#; # deleted file: /filename/-1.1/dummy timestamp//
+ next if m#^/[^/]*/0/#; # new file: /filename/0/dummy timestamp//
do { push @dir_files,$1; next; } if m#^/([^/]*)/# ;
do { push @dir_files,$1; next; } if m#^/([^/]*)/# ;
mayfatal "File ".ENTRIES." contains invalid line \"$_\"",("noerrno"=>1);
}
close E;
mayfatal "File ".ENTRIES." contains invalid line \"$_\"",("noerrno"=>1);
}
close E;