r7729: Small fixes to the charset stuff.

(This used to be commit 5122b9f608399a6c90521e2f8bd96154755fe397)

1 files changed, 4 insertions, 10 deletions

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($)