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