diff options
| author | Andrew Tridgell <tridge@samba.org> | 2003-12-15 08:58:00 +0000 |
|---|---|---|
| committer | Andrew Tridgell <tridge@samba.org> | 2003-12-15 08:58:00 +0000 |
| commit | a90db73efd985283a3402c69fae94d10813b22d8 (patch) | |
| tree | ab39b40eafe1133aeb1e7c0c3e1011718a6b0b20 | |
| parent | 328957981251e6f98f89f1f1a3895a44253f8da9 (diff) | |
| download | samba-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)
| -rw-r--r-- | source4/build/pidl/client.pm | 1 | ||||
| -rw-r--r-- | source4/build/pidl/dump.pm | 1 | ||||
| -rw-r--r-- | source4/build/pidl/eparser.pm | 1 | ||||
| -rw-r--r-- | source4/build/pidl/header.pm | 1 | ||||
| -rw-r--r-- | source4/build/pidl/parser.pm | 1 | ||||
| -rw-r--r-- | source4/build/pidl/server.pm | 1 | ||||
| -rw-r--r-- | source4/build/pidl/util.pm | 14 | ||||
| -rw-r--r-- | source4/build/pidl/validator.pm | 2 |
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 |