Do not call "warn" on failure of cleanup handler in END block (since warn has been made fatal and aborts the cleanup chain).

1 files changed, 1 insertions, 1 deletions

diff --git a/dgit b/dgit
index 91f43af..507be27 100755
--- a/dgit
+++ b/dgit
@@ -155,7 +155,7 @@ END {
     local ($?);
     foreach my $f (@end) {
 	eval { $f->(); };
-	warn "$us: cleanup: $@" if length $@;
+	print STDERR "$us: cleanup: $@" if length $@;
     }
 };