X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FCommon.pm;h=8d837291274afee68326b54a2ca1cab4b98364ce;hb=343464a69a83b5b2f1e956386482baaaccbc835c;hp=bb42bf8b207c171f240c48779a3c18b680124ddc;hpb=ad9a9963bb590b92111b604365b8b7ab9ecac982;p=debbugs.git

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index bb42bf8..8d83729 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -430,7 +430,7 @@ instead. (Or possibly a die handler, if the cleanups are important)
 =cut
 
 sub quit {
-    print $DEBUG_FH "quitting >$_[0]<\n" if $DEBUG;
+    print {$DEBUG_FH} "quitting >$_[0]<\n" if $DEBUG;
     my ($u);
     while ($u= $cleanups[$#cleanups]) { &$u; }
     die "*** $_[0]\n";