blob: e4ee3ceea2421aa3703d0857621fc82e684e6889 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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);
|
