From 327a9ac650d7661a3f94c8e827cd02834550afc4 Mon Sep 17 00:00:00 2001 From: Jelmer Vernooij Date: Sat, 18 Jun 2005 16:31:48 +0000 Subject: r7729: Small fixes to the charset stuff. (This used to be commit 5122b9f608399a6c90521e2f8bd96154755fe397) --- source4/build/pidl/validator.pm | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to 'source4/build/pidl/validator.pm') diff --git a/source4/build/pidl/validator.pm b/source4/build/pidl/validator.pm index 82f1f3dd81..07420eac83 100644 --- a/source4/build/pidl/validator.pm +++ b/source4/build/pidl/validator.pm @@ -12,15 +12,13 @@ use strict; # signal a fatal validation error sub fatal($$) { - my $pos = shift; - my $s = shift; + my ($pos,$s) = @_; die("$pos->{FILE}:$pos->{LINE}:$s\n"); } sub nonfatal($$) { - my $pos = shift; - my $s = shift; + my ($pos,$s) = @_; warn ("$pos->{FILE}:$pos->{LINE}:warning:$s\n"); } @@ -46,8 +44,7 @@ sub el_name($) # find a sibling var in a structure sub find_sibling($$) { - my($e) = shift; - my($name) = shift; + my($e,$name) = @_; my($fn) = $e->{PARENT}; if ($name =~ /\*(.*)/) { @@ -61,7 +58,6 @@ sub find_sibling($$) return undef; } - my %property_list = ( # interface "helpstring" => ["INTERFACE", "FUNCTION"], @@ -140,8 +136,7 @@ my %property_list = ( # check for unknown properties sub ValidProperties($$) { - my $e = shift; - my $t = shift; + my ($e,$t) = @_; return unless defined $e->{PROPERTIES}; @@ -172,7 +167,6 @@ sub mapToScalar($) return undef; } - ##################################################################### # parse a struct sub ValidElement($) -- cgit