From a90db73efd985283a3402c69fae94d10813b22d8 Mon Sep 17 00:00:00 2001
From: Andrew Tridgell <tridge@samba.org>
Date: Mon, 15 Dec 2003 08:58:00 +0000
Subject: make pidl no longer dependent on Data::Dumper, which isn't installed
 on some systems (This used to be commit
 a4aa9168c0f80cf6e758c380d41335db50d06869)

---
 source4/build/pidl/client.pm    |  1 -
 source4/build/pidl/dump.pm      |  1 -
 source4/build/pidl/eparser.pm   |  1 -
 source4/build/pidl/header.pm    |  1 -
 source4/build/pidl/parser.pm    |  1 -
 source4/build/pidl/server.pm    |  1 -
 source4/build/pidl/util.pm      | 14 ++++----------
 source4/build/pidl/validator.pm |  2 --
 8 files changed, 4 insertions(+), 18 deletions(-)

(limited to 'source4/build')

diff --git a/source4/build/pidl/client.pm b/source4/build/pidl/client.pm
index 495fe3dd7c..89d367f037 100644
--- a/source4/build/pidl/client.pm
+++ b/source4/build/pidl/client.pm
@@ -6,7 +6,6 @@
 package IdlClient;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 
diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm
index c088a95a77..ec2002ef10 100644
--- a/source4/build/pidl/dump.pm
+++ b/source4/build/pidl/dump.pm
@@ -6,7 +6,6 @@
 package dump;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 
diff --git a/source4/build/pidl/eparser.pm b/source4/build/pidl/eparser.pm
index 6de4c26c85..ba1a691ee5 100644
--- a/source4/build/pidl/eparser.pm
+++ b/source4/build/pidl/eparser.pm
@@ -7,7 +7,6 @@
 package eparser;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 
diff --git a/source4/build/pidl/header.pm b/source4/build/pidl/header.pm
index 4fa5969d3f..f7072633b9 100644
--- a/source4/build/pidl/header.pm
+++ b/source4/build/pidl/header.pm
@@ -6,7 +6,6 @@
 package IdlHeader;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 my($tab_depth);
diff --git a/source4/build/pidl/parser.pm b/source4/build/pidl/parser.pm
index 126c30de09..d094b5e5b5 100644
--- a/source4/build/pidl/parser.pm
+++ b/source4/build/pidl/parser.pm
@@ -7,7 +7,6 @@
 package IdlParser;
 
 use strict;
-use Data::Dumper;
 use client;
 
 # the list of needed functions
diff --git a/source4/build/pidl/server.pm b/source4/build/pidl/server.pm
index e6d996b95d..33c0e7f452 100644
--- a/source4/build/pidl/server.pm
+++ b/source4/build/pidl/server.pm
@@ -8,7 +8,6 @@
 package IdlServer;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm
index dc6fd35f0c..8331e115d3 100644
--- a/source4/build/pidl/util.pm
+++ b/source4/build/pidl/util.pm
@@ -4,8 +4,6 @@
 # released under the GNU GPL
 package util;
 
-use Data::Dumper;
-
 #####################################################################
 # load a data structure from a file (as saved with SaveStructure)
 sub LoadStructure($)
@@ -136,9 +134,10 @@ sub ChangeExtension($$)
 # save a data structure into a file
 sub SaveStructure($$)
 {
-    my($filename) = shift;
-    my($v) = shift;
-    FileSave($filename, Dumper($v));
+	require Data::Dumper;
+	my($filename) = shift;
+	my($v) = shift;
+	FileSave($filename, Data::Dumper::Dumper($v));
 }
 
 #####################################################################
@@ -363,10 +362,5 @@ sub is_inline_array($)
 	return 0;
 }
 
-sub dump($)
-{
-	print Dumper shift;
-}
-
 1;
 
diff --git a/source4/build/pidl/validator.pm b/source4/build/pidl/validator.pm
index 10863872fe..79f1c6be88 100644
--- a/source4/build/pidl/validator.pm
+++ b/source4/build/pidl/validator.pm
@@ -6,8 +6,6 @@
 package IdlValidator;
 
 use strict;
-use Data::Dumper;
-
 
 #####################################################################
 # signal a fatal validation error
-- 
cgit