make pidl no longer dependent on Data::Dumper, which isn't installed

on some systems

diff --git a/source/build/pidl/client.pm b/source/build/pidl/client.pm
index 495fe3dd7c94ba18142646138f9e5248bfa1d394..89d367f0377cfe304382aa2cf814a863b4d6d788 100644 (file)
--- a/source/build/pidl/client.pm
+++ b/source/build/pidl/client.pm
@@ -6,7 +6,6 @@
 package IdlClient;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 

diff --git a/source/build/pidl/dump.pm b/source/build/pidl/dump.pm
index c088a95a776d3f815dff8d09fc9f10f40fb9b56c..ec2002ef10bce2f868a972245e5d8ff396278824 100644 (file)
--- a/source/build/pidl/dump.pm
+++ b/source/build/pidl/dump.pm
@@ -6,7 +6,6 @@
 package dump;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 

diff --git a/source/build/pidl/eparser.pm b/source/build/pidl/eparser.pm
index 6de4c26c85bb97828c78833450ccb492a40defbb..ba1a691ee594797c07d79cbdc17db9857bf42447 100644 (file)
--- a/source/build/pidl/eparser.pm
+++ b/source/build/pidl/eparser.pm
@@ -7,7 +7,6 @@
 package eparser;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 

diff --git a/source/build/pidl/header.pm b/source/build/pidl/header.pm
index 4fa5969d3f1167800523b55d2f3ecec44015ba20..f7072633b90277550a17ec33f4a106350b5b775f 100644 (file)
--- a/source/build/pidl/header.pm
+++ b/source/build/pidl/header.pm
@@ -6,7 +6,6 @@
 package IdlHeader;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 my($tab_depth);

diff --git a/source/build/pidl/parser.pm b/source/build/pidl/parser.pm
index 126c30de09d47ac0addca5cb31dbd505063ff822..d094b5e5b501950f4e59593dfe1311c26db29b47 100644 (file)
--- a/source/build/pidl/parser.pm
+++ b/source/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/source/build/pidl/server.pm b/source/build/pidl/server.pm
index e6d996b95db6979dc3d92dc1862179acc93b2631..33c0e7f45237c821d0d70b52f8857537cb24ec98 100644 (file)
--- a/source/build/pidl/server.pm
+++ b/source/build/pidl/server.pm
@@ -8,7 +8,6 @@
 package IdlServer;
 
 use strict;
-use Data::Dumper;
 
 my($res);
 

diff --git a/source/build/pidl/util.pm b/source/build/pidl/util.pm
index dc6fd35f0c4636b9c6d1bfddb3a083680844232a..8331e115d336737ce260dac154d7aafe645d8356 100644 (file)
--- a/source/build/pidl/util.pm
+++ b/source/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/source/build/pidl/validator.pm b/source/build/pidl/validator.pm
index 10863872febbd6f99636faa26204bf231e96cd16..79f1c6be8862c9ef8b8bcdd1d1f5935e40a1f0a0 100644 (file)
--- a/source/build/pidl/validator.pm
+++ b/source/build/pidl/validator.pm
@@ -6,8 +6,6 @@
 package IdlValidator;
 
 use strict;
-use Data::Dumper;
-
 
 #####################################################################
 # signal a fatal validation error