Package: dist
Version: 1:3.5-17-1
Filename: pool/main/d/dist/dist_3.5-17-1_all.deb


Found error in /usr/bin/patcil:
	$ grep -A5 -B5 /tmp/ /usr/bin/patcil
		$mess;			# Returned value
	}
	
	sub edit {
		local($text) = join("\n", @_);
		open(TMP,">/tmp/cil$$") || die "Can't create /tmp/cil$$";
		print TMP $text;
		close TMP;
		system $EDITOR, "/tmp/cil$$";
		$text = `cat /tmp/cil$$`;
		unlink "/tmp/cil$$";
		$text;
	}
	
	sub usage {
		print STDERR <<EOM;

Found error in /usr/bin/patdiff:
	$ grep -A5 -B5 /tmp/ /usr/bin/patdiff
						print PATCH;
					}
					close DIFF;
					system 'rcs', "-Nlastpat:$new", @files;
				} else {
					&copyright'expand("co -p -rlastpat $file", "/tmp/pdo$$");
					&copyright'expand("co -p -r$new $file", "/tmp/pdn$$");
					open(DIFF, "$mydiff /tmp/pdo$$ /tmp/pdn$$ |") ||
					die "Can't run $mydiff";
					while (<DIFF>) {			# Contextual or unified diff
						if ($. == 1) {
							s|\*\*\* \S+	|*** $file.old	| ||
							s|--- \S+	|--- $file.old	|;
	--
						s|Lock[e]r:.*\$|\$|;	# Remove locker mark
						print PATCH;
					}
					close DIFF;
					system 'rcs', "-Nlastpat:$new", @files;
					unlink "/tmp/pdn$$", "/tmp/pdo$$";
				}
			} else {
				if ($mydiff eq '') {
					open(DIFF,"rcsdiff -c -rlastpat $files |") ||
					die "Can't run rcsdiff";
	--
						s|Lock[e]r:.*\$|\$|;	# Remove locker mark
						print PATCH;
					}
					close DIFF;
				} else {
					system "co -p -rlastpat $files >/tmp/pdo$$";
					system "cp $file /tmp/pdn$$";
					open(DIFF, "$mydiff /tmp/pdo$$ /tmp/pdn$$ |") ||
					die "$progname: can't fork $mydiff: $!\n";
					while (<DIFF>) {
						# Contextual or unified diff
						if ($. == 1) {
							s|\*\*\* \S+	|*** $file.old	|;
	--
						}
						s|Lock[e]r:.*\$|\$|;	# Remove locker mark
						print PATCH;
					}
					close DIFF;
					unlink "/tmp/pdn$$", "/tmp/pdo$$";
				}
			}
		}
	}