added code to the IDL validator to check for common errors with

pointers are arrays
(This used to be commit e67cbfff6c1041671711e4f73894e6e13151d57e)

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));
 }
 
 #####################################################################