blob: 9a751e3563c2a793ebb1c3e4ca77b0dd2bee0e1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
###########################################################
### SMB Build System ###
### - the dump & debug functions ###
### ###
### Copyright (C) Stefan (metze) Metzmacher 2004 ###
### Released under the GNU GPL ###
###########################################################
package dump;
use strict;
use Data::Dumper;
sub dump_ctx($)
{
my $ctx = shift;
open (DUMP,"> config.smb_build.dump");
print DUMP Dumper($ctx);
close(DUMP);
}
1;
|
