Do not call "warn" on failure of cleanup handler in END block (since warn has been...

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 91f43af087372c02b0f6ad719f93a60b07a94002..507be273f3f0b4c5b4debb44de0c060e62eaeb53 100755 (executable)
--- 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 $@;
     }
 };