sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-11-06 08:23:50 +03:00
Code Activity

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

Browse Source 
on some systems
This commit is contained in:
Andrew Tridgell
-
parent e472053bcc
commit a4aa9168c0
8 changed files with 4 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/build/pidl/client.pm
View File

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

1
source/build/pidl/dump.pm
View File

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

1
source/build/pidl/eparser.pm
View File

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

1
source/build/pidl/header.pm
View File

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

1
source/build/pidl/parser.pm
View File

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

1
source/build/pidl/server.pm
View File

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

14
source/build/pidl/util.pm
View File

@@ -4,8 +4,6 @@
# released under the GNU GPL # released under the GNU GPL
package util; package util;
use Data::Dumper;
##################################################################### #####################################################################
# load a data structure from a file (as saved with SaveStructure) # load a data structure from a file (as saved with SaveStructure)
sub LoadStructure($) sub LoadStructure($)
@@ -136,9 +134,10 @@ sub ChangeExtension($$)
# save a data structure into a file # save a data structure into a file
sub SaveStructure($$) sub SaveStructure($$)
{ {
my($filename) = shift; require Data::Dumper;
my($v) = shift; my($filename) = shift;
FileSave($filename, Dumper($v)); my($v) = shift;
FileSave($filename, Data::Dumper::Dumper($v));
} }
##################################################################### #####################################################################
@@ -363,10 +362,5 @@ sub is_inline_array($)
return 0; return 0;
} }
sub dump($)
{
print Dumper shift;
}
1; 1;

2
source/build/pidl/validator.pm
View File

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