mirror of
https://github.com/samba-team/samba.git
synced 2025-11-07 12:23:51 +03:00
make pidl no longer dependent on Data::Dumper, which isn't installed
on some systems
This commit is contained in:
@@ -6,7 +6,6 @@
|
||||
package IdlClient;
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
|
||||
my($res);
|
||||
|
||||
|
||||
@@ -6,7 +6,6 @@
|
||||
package dump;
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
|
||||
my($res);
|
||||
|
||||
|
||||
@@ -7,7 +7,6 @@
|
||||
package eparser;
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
|
||||
my($res);
|
||||
|
||||
|
||||
@@ -6,7 +6,6 @@
|
||||
package IdlHeader;
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
|
||||
my($res);
|
||||
my($tab_depth);
|
||||
|
||||
@@ -7,7 +7,6 @@
|
||||
package IdlParser;
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
use client;
|
||||
|
||||
# the list of needed functions
|
||||
|
||||
@@ -8,7 +8,6 @@
|
||||
package IdlServer;
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
|
||||
my($res);
|
||||
|
||||
|
||||
@@ -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;
|
||||
|
||||
|
||||
@@ -6,8 +6,6 @@
|
||||
package IdlValidator;
|
||||
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
|
||||
|
||||
#####################################################################
|
||||
# signal a fatal validation error
|
||||
|
||||
Reference in New Issue
Block a user