diff options
Diffstat (limited to 'source4/build/pidl/util.pm')
-rw-r--r-- | source4/build/pidl/util.pm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index b732c185b2..2a4c0de74d 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -134,13 +134,22 @@ sub ChangeExtension($$) } ##################################################################### +# a dumper wrapper to prevent dependence on the Data::Dumper module +# unless we actually need it +sub MyDumper($) +{ + require Data::Dumper; + my $s = shift; + return Data::Dumper::Dumper($s); +} + +##################################################################### # save a data structure into a file sub SaveStructure($$) { - require Data::Dumper; my($filename) = shift; my($v) = shift; - FileSave($filename, Data::Dumper::Dumper($v)); + FileSave($filename, MyDumper($v)); } ##################################################################### |