1
0
mirror of https://github.com/samba-team/samba.git synced 2025-11-04 00:23:49 +03:00

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

on some systems
This commit is contained in:
Andrew Tridgell
-
parent e472053bcc
commit a4aa9168c0
8 changed files with 4 additions and 18 deletions

View File

@@ -6,7 +6,6 @@
package IdlClient;
use strict;
use Data::Dumper;
my($res);

View File

@@ -6,7 +6,6 @@
package dump;
use strict;
use Data::Dumper;
my($res);

View File

@@ -7,7 +7,6 @@
package eparser;
use strict;
use Data::Dumper;
my($res);

View File

@@ -6,7 +6,6 @@
package IdlHeader;
use strict;
use Data::Dumper;
my($res);
my($tab_depth);

View File

@@ -7,7 +7,6 @@
package IdlParser;
use strict;
use Data::Dumper;
use client;
# the list of needed functions

View File

@@ -8,7 +8,6 @@
package IdlServer;
use strict;
use Data::Dumper;
my($res);

View File

@@ -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;

View File

@@ -6,8 +6,6 @@
package IdlValidator;
use strict;
use Data::Dumper;
#####################################################################
# signal a fatal validation error