From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 21 May 2017 19:33:53 +0000 (-0700)
Subject: update the patch for 862667 to match upstream's version and disable
X-Git-Tag: debian/20170521-1~5
X-Git-Url: https://git.donarmstrong.com/?p=perltidy.git;a=commitdiff_plain;h=942f473685b5c3fe8fc8e892b89141230db9ee2a

update the patch for 862667 to match upstream's version and disable
---

diff --git a/debian/patches/die_on_unlink_failures b/debian/patches/die_on_unlink_failures
index c950d7e..7b4d3d9 100644
--- a/debian/patches/die_on_unlink_failures
+++ b/debian/patches/die_on_unlink_failures
@@ -1,27 +1,31 @@
 Description: die if perltidy.ERR and other temporary files cannot be unlinked
-Origin: vendor, https://bugs.debian.org/862667
-Author: Don Armstrong <don@debian.org>
+Origin: Upstream, Cherrypicked from 20170521.
+Author: Don Armstrong <don@debian.org>, Steve Hancock
+diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
+index 2b0df0e..edcec6d 100644
 --- a/lib/Perl/Tidy.pm
 +++ b/lib/Perl/Tidy.pm
-@@ -3692,7 +3692,9 @@
+@@ -3692,7 +3702,10 @@ sub do_syntax_check {
      # now wish for luck...
      my $msg = qx/perl $flags $quoted_stream_filename $error_redirection/;
  
 -    unlink $stream_filename if ($is_tmpfile);
-+    unlink $stream_filename or
-+        Perl::Tidy::Die("couldn't unlink stream ${stream_filename}: $!\n")
-+            if ($is_tmpfile);
++    if ($is_tmpfile) {
++        unlink $stream_filename
++          or Perl::Tidy::Die("couldn't unlink stream $stream_filename: $!\n");
++    }
      return $stream_filename, $msg;
  }
  
-@@ -4128,7 +4130,10 @@
+@@ -4128,7 +4143,11 @@ sub new {
  
      # remove any old error output file if we might write a new one
      unless ( $fh_warnings || ref($warning_file) ) {
 -        if ( -e $warning_file ) { unlink($warning_file) }
 +        if ( -e $warning_file ) {
-+            unlink($warning_file) or
-+                Perl::Tidy::Die("couldn't unlink warning file ${warning_file}: $!\n");
++            unlink($warning_file)
++              or Perl::Tidy::Die(
++                "couldn't unlink warning file $warning_file: $!\n");
 +        }
      }
  
diff --git a/debian/patches/series b/debian/patches/series
index a54562c..9b1049a 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1 @@
-die_on_unlink_failures
 document_bst_better