summaryrefslogtreecommitdiff
path: root/source4
diff options
context:
space:
mode:
authorAndrew Tridgell <tridge@samba.org>2003-12-15 08:58:00 +0000
committerAndrew Tridgell <tridge@samba.org>2003-12-15 08:58:00 +0000
commita90db73efd985283a3402c69fae94d10813b22d8 (patch)
treeab39b40eafe1133aeb1e7c0c3e1011718a6b0b20 /source4
parent328957981251e6f98f89f1f1a3895a44253f8da9 (diff)
downloadsamba-a90db73efd985283a3402c69fae94d10813b22d8.tar.gz
samba-a90db73efd985283a3402c69fae94d10813b22d8.tar.bz2
samba-a90db73efd985283a3402c69fae94d10813b22d8.zip
make pidl no longer dependent on Data::Dumper, which isn't installed
on some systems (This used to be commit a4aa9168c0f80cf6e758c380d41335db50d06869)
Diffstat (limited to 'source4')
-rw-r--r--source4/build/pidl/client.pm1
-rw-r--r--source4/build/pidl/dump.pm1
-rw-r--r--source4/build/pidl/eparser.pm1
-rw-r--r--source4/build/pidl/header.pm1
-rw-r--r--source4/build/pidl/parser.pm1
-rw-r--r--source4/build/pidl/server.pm1
-rw-r--r--source4/build/pidl/util.pm14
-rw-r--r--source4/build/pidl/validator.pm2
8 files changed, 4 insertions, 18 deletions
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