dist (1:3.5-236-0.2) unstable; urgency=medium

  * Non-maintainer upload.
  * debian/dist.postinst: Fix wrong direction form.
    (Closes: #908187)
  * debian/rules: Explicitly provide tool path to avoid usrmerge
    differences and make package reproducible. (Closes: #915910)
  * debian/rules: Avoid manually setting DEB_HOST_MULTIARCH, use
    /usr/share/dpkg/architecture.mk instead. (lintian warning)

[dgit import package dist 1:3.5-236-0.2]

1 files changed, 14 insertions, 8 deletions

diff --git a/pat/patdiff.SH b/pat/patdiff.SH
index 0c74c9a..ed4e97b 100755
--- a/pat/patdiff.SH
+++ b/pat/patdiff.SH
@@ -49,6 +49,8 @@ $startperl
 !GROK!THIS!
 cat >>patdiff <<'!NO!SUBS!'
 
+use File::Temp qw/ tempfile tempdir /;
+
 $RCSEXT = ',v' unless $RCSEXT;
 $TOPDIR = '';			# We are at top-level directory
 
@@ -159,9 +161,11 @@ foreach $file (@ARGV) {
 				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$$ |") ||
+                                my $tmpo = File::Temp->new();
+                                my $tmpn = File::Temp->new();
+				&copyright'expand("co -p -rlastpat $file", "$tmpo");
+				&copyright'expand("co -p -r$new $file", "$tmpn");
+				open(DIFF, "$mydiff $tmpo $tmpn |") ||
 				die "Can't run $mydiff";
 				while (<DIFF>) {			# Contextual or unified diff
 					if ($. == 1) {
@@ -177,7 +181,7 @@ foreach $file (@ARGV) {
 				}
 				close DIFF;
 				system 'rcs', "-Nlastpat:$new", @files;
-				unlink "/tmp/pdn$$", "/tmp/pdo$$";
+				unlink "$tmpo", "$tmpn";
 			}
 		} else {
 			if ($mydiff eq '') {
@@ -191,9 +195,11 @@ foreach $file (@ARGV) {
 				}
 				close DIFF;
 			} else {
-				system "co -p -rlastpat $files >/tmp/pdo$$";
-				system "cp $file /tmp/pdn$$";
-				open(DIFF, "$mydiff /tmp/pdo$$ /tmp/pdn$$ |") ||
+                                my $tmpo = File::Temp->new();
+                                my $tmpn = File::Temp->new();
+				system "co -p -rlastpat $files >$tmpo";
+				system "cp $file $tmpn";
+				open(DIFF, "$mydiff $tmpo $tmpn |") ||
 				die "$progname: can't fork $mydiff: $!\n";
 				while (<DIFF>) {
 					# Contextual or unified diff
@@ -209,7 +215,7 @@ foreach $file (@ARGV) {
 					print PATCH;
 				}
 				close DIFF;
-				unlink "/tmp/pdn$$", "/tmp/pdo$$";
+				unlink "$tmpo", "$tmpn";
 			}
 		}
 	}