This makes tracking file renames rather easier.
} else {
defined $name or die "missing name";
}
- } elsif (/^ \s+ !! \s* (\S .*) $/x) {
+ } elsif (/^ \s+ (?: !! \s*)? (\S .*) $/x) {
my $path = $1;
defined $id or die "no active set";
- push @path, undef;
- } elsif (/^ \s+ (\S .*) $/x) {
- my $path = $1;
- defined $id or die "no active set";
- -f "$ROOT/$path" && ! -l "$ROOT/$path" or die "file `$path' not found";
push @path, $path;
} elsif (/^ .* \S .* $/) {
die "unrecognized line `$_'";