[gtk-doc] scanner: setting GTK_DOC_KEEP_INTERMEDIATE=1 allows to keep scanner

[Stefan Kost <stefkost src gnome org>]

commit 4158eafa5bf63d128781215d83f597e9b54b6f80
Author: Stefan Kost <ensonic users sf net>
Date:   Thu Dec 24 14:17:53 2009 +0200

    scanner: setting GTK_DOC_KEEP_INTERMEDIATE=1 allows to keep scanner
    
    This help debugging. Bother the binary and the sources are kept.

 gtkdoc-scangobj.in |    4 +++-
 gtkdoc-scanobj.in  |    4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)
---
diff --git a/gtkdoc-scangobj.in b/gtkdoc-scangobj.in
index 6eb906f..fe25252 100644
--- a/gtkdoc-scangobj.in
+++ b/gtkdoc-scangobj.in
@@ -1608,7 +1608,9 @@ print "gtk-doc: Running scanner $MODULE-scan\n";
 # use sh -c to avoid terminating the whole run without seeing the error
 system("sh -c \"$RUN ./$MODULE-scan\"") == 0 or die "Scan failed: $!\n";
 
-unlink "./$MODULE-scan.c", "./$MODULE-scan.o", "./$MODULE-scan.lo", "./$MODULE-scan";
+if (!defined($ENV{"GTK_DOC_KEEP_INTERMEDIATE"})) {
+  unlink "./$MODULE-scan.c", "./$MODULE-scan.o", "./$MODULE-scan.lo", "./$MODULE-scan";
+}
 
 &UpdateFileIfChanged ($old_signals_filename, $new_signals_filename, 0);
 &UpdateFileIfChanged ($old_hierarchy_filename, $new_hierarchy_filename, 0);
diff --git a/gtkdoc-scanobj.in b/gtkdoc-scanobj.in
index f635aa6..a7053c2 100755
--- a/gtkdoc-scanobj.in
+++ b/gtkdoc-scanobj.in
@@ -848,7 +848,9 @@ print "gtk-doc: Running scanner $MODULE-scan\n";
 # use sh -c to avoid terminating the whole run without seeing the error
 system("sh -c \"$RUN ./$MODULE-scan\"") == 0 or die "Scan failed: $!\n";
 
-unlink "./$MODULE-scan.c", "./$MODULE-scan.o", "./$MODULE-scan.lo", "./$MODULE-scan";
+if (!defined($ENV{"GTK_DOC_KEEP_INTERMEDIATE"})) {
+  unlink "./$MODULE-scan.c", "./$MODULE-scan.o", "./$MODULE-scan.lo", "./$MODULE-scan";
+}
 
 &UpdateFileIfChanged ($old_signals_filename, $new_signals_filename, 0);
 &UpdateFileIfChanged ($old_hierarchy_filename, $new_hierarchy_filename, 0);