Lines Matching refs:original
587 my $original = $_;
594 $_ = $original;
609 $_ = $original;
614 $_ = $original;
623 my $original = $_;
636 $_ = $original;
644 $_ = $original;
649 $_ = $original;
1300 my ($file, $isAdd, $original) = @_;
1311 if ($original) {
1312 open PROPLIST, "$SVN proplist '$original' |" or die;
1377 my $original;
1395 $original = findOriginalFileFromSvn($file) if substr($_, 3, 1) eq "+";
1397 $propertyChanges = determinePropertyChanges($file, $isAdd, $original) if isModifiedStatus($propertyStatus) || $isAdd;
1409 $original = normalizePath($2);
1436 my $description = statusDescription($status, $propertyStatus, $original, $propertyChanges);
1497 my ($status, $propertyStatus, $original, $propertyChanges) = @_;
1502 "A" => defined $original ? " Copied from \%s." : " Added.",
1505 "R" => defined $original ? " Replaced with \%s." : " Replaced.",
1515 $description = sprintf($svn{$status}, $original) if $isSVN && exists $svn{$status};
1516 $description = sprintf($git{$status}, $original) if $isGit && exists $git{$status};
