Lines Matching refs:original
614 my $original = $_;
621 $_ = $original;
636 $_ = $original;
641 $_ = $original;
650 my $original = $_;
663 $_ = $original;
671 $_ = $original;
676 $_ = $original;
1363 my ($file, $isAdd, $original) = @_;
1374 if ($original) {
1375 open PROPLIST, "$SVN proplist '$original' |" or die;
1440 my $original;
1458 $original = findOriginalFileFromSvn($file) if substr($_, 3, 1) eq "+";
1460 $propertyChanges = determinePropertyChanges($file, $isAdd, $original) if isModifiedStatus($propertyStatus) || $isAdd;
1472 $original = normalizePath($2);
1499 my $description = statusDescription($status, $propertyStatus, $original, $propertyChanges);
1560 my ($status, $propertyStatus, $original, $propertyChanges) = @_;
1565 "A" => defined $original ? " Copied from \%s." : " Added.",
1568 "R" => defined $original ? " Replaced with \%s." : " Replaced.",
1578 $description = sprintf($svn{$status}, $original) if $isSVN && exists $svn{$status};
1579 $description = sprintf($git{$status}, $original) if $isGit && exists $git{$status};
