summaryrefslogtreecommitdiff
path: root/source4/build/smb_build
diff options
context:
space:
mode:
Diffstat (limited to 'source4/build/smb_build')
-rw-r--r--source4/build/smb_build/core.m45
-rw-r--r--source4/build/smb_build/dump.pl23
2 files changed, 27 insertions, 1 deletions
diff --git a/source4/build/smb_build/core.m4 b/source4/build/smb_build/core.m4
index 0005809fe6..ae990d95c3 100644
--- a/source4/build/smb_build/core.m4
+++ b/source4/build/smb_build/core.m4
@@ -68,9 +68,12 @@ $SMB_INFO_BINARIES
smb_build_main(\$SMB_BUILD_CTX);
-0;
_SMB_ACEOF
+if test x"$debug" = x"yes";then
+ cat >> config.smb_build.pl < build/smb_build/dump.pl
+fi
+
$PERL ./config.smb_build.pl || exit $?
])
diff --git a/source4/build/smb_build/dump.pl b/source4/build/smb_build/dump.pl
new file mode 100644
index 0000000000..e4ee3ceea2
--- /dev/null
+++ b/source4/build/smb_build/dump.pl
@@ -0,0 +1,23 @@
+###########################################################
+### SMB Build System ###
+### - the dump & debug functions ###
+### ###
+### Copyright (C) Stefan (metze) Metzmacher 2004 ###
+### Released under the GNU GPL ###
+###########################################################
+
+use Data::Dumper;
+sub _dump_ctx($)
+{
+ my $ctx = shift;
+
+ open (DUMP,"> config.smb_build.dump");
+
+ print DUMP Dumper($ctx);
+
+ close(DUMP);
+
+ return;
+}
+
+_dump_ctx($SMB_BUILD_CTX);