sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-28 07:21:54 +03:00
Code

its LoadStructure() in util.pm that doesn't like strict perl - any

Browse Source 
perl gurus out there know why?
(This used to be commit a1d9afc92f)
This commit is contained in:
Andrew Tridgell 2003-11-20 02:03:36 +00:00
parent 427bb5541b
commit 52461a3d14
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
source4/build/pidl/util.pm
View File

@ -6,12 +6,17 @@ package util;
use Data::Dumper;
sub dumpit($)
#####################################################################
# load a data structure from a file (as saved with SaveStructure)
sub LoadStructure($)
{
my $a = shift;
return Dumper $a;
my $f = shift;
my $contents = FileLoad($f);
return eval "$contents";
}
use strict;
#####################################################################
# flatten an array of arrays into a single array
sub FlattenArray2($)
@ -136,13 +141,6 @@ sub SaveStructure($$)
FileSave($filename, Dumper($v));
}
#####################################################################
# load a data structure from a file (as saved with SaveStructure)
sub LoadStructure($)
{
return eval FileLoad(shift);
}
#####################################################################
# see if a pidl property list contains a give property
sub has_property($$)
@ -242,7 +240,6 @@ sub need_wire_pointer($)
return undef;
}
# determine if an element is a pass-by-reference structure
sub is_ref_struct($)
{
@ -319,6 +316,7 @@ sub c_push_prefix($)
return "";
}
# determine the C prefix used to refer to a variable when passing to a pull
# return '&' or ''
sub c_pull_prefix($)