diff options
Diffstat (limited to 'source4/build/smb_build')
| -rw-r--r-- | source4/build/smb_build/core.m4 | 5 | ||||
| -rw-r--r-- | source4/build/smb_build/dump.pl | 23 |
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); |